form代碼：
Private Sub Command1_Click()
Text3.Text = sum(Int(Text2.Text), Int(Text1.Text))
Command1.Caption = Text3.Text
End Sub
模塊：
Public Function sum(x As Integer, y As Integer) As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "driver={sql server};server=xxj\XXXXXJ;database=mbk;uid=sa;pwd=1"
SQL = "select * from number"
rs.Open SQL, conn
Set MSHFlexGrid1.DataSource = rs
sum = MSHFlexGrid1.TextMatrix(x, y)
rs.Close
conn.Close
End Function
提示錯誤在Set MSHFlexGrid1.DataSource = rs
我把模塊中的代碼放到from中就可以運行了 到底是哪里錯了
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "driver={sql server};server=xxj\XXXXXJ;database=mbk;uid=sa;pwd=1" '連接資料庫
SQL = "select * from number"
rs.Open SQL, conn
Set MSHFlexGrid1.DataSource = rs
Text3.Text = MSHFlexGrid1.TextMatrix(Int(Text2.Text), Int(Text1.Text))
rs.Close
conn.Close
End Sub
uj5u.com熱心網友回復：
解決了 在前面加上Form1.uj5u.com熱心網友回復：
MSHFlexGrid1是一個“控制元件”的名稱，這些“可視物件”必須依附于某個表單的，要操作這類物件，肯定得指明對應的表單名稱。
使用陳述句的格式，基本上都是這樣的格式：
表單名.控制元件名.屬性
表單名.控制元件名.方法
（“方法”指的是程序或函式，如果需要引數的，呼叫時還要傳遞對應的引數才行）
uj5u.com熱心網友回復：
你在模塊里面使用Form1的控制元件MSHFlexGrid1，前面又不加Form1.， 肯定是報錯的uj5u.com熱心網友回復：
MSHFlexGrid1這個又不再你模塊里你不加FORM1有什么用?
他知道你參考的那個?
uj5u.com熱心網友回復：
小問題呀，順嘎嘎嘎嘎大吃大喝在轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/68605.html
標籤：VB基礎類