Question

求助关于VB中MSFlexGrid与text联合输入数据的问题！！！

Private Sub MSFlexGrid1_Click()
Dim i As Integer
MSFlexGrid1.Rows = 20
MSFlexGrid1.Cols = 10
Dim s, y
'设置msflexgrid1表格控件的列宽和表头
s = Array("600", "1000", "500", "500", "1200", "1200", "600", "600", "800")
y = Array("序号", "姓名", "性别", "年龄", "原所在班级", "住址", "联系方式", "QQ号", "e-mail")
For i = 0 To 8
MSFlexGrid1.ColWidth(i) = s(i)
MSFlexGrid1.TextMatrix(0, i) = y(i)
Next
End Sub

Private Sub MSFlexGrid_Click()
InText1.Visible = True
InText1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
InText1.SelStart = Len(InText1.Text)
InText1.SelLength = Len(InText1.Text) + 1
InText1.SetFocus
End Sub

Private Sub Command1_Click()
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = InText1.Text '在这里提示未找到方法或数据成员。
End Sub

Answer 1

这里主要是你数据源设置的问题，加载数据源的问题。

Answer 2

测试过代码没问题 只要添加一个textbox控件名为intext1 一个按钮command1
2个MSFlexGrid控件 一个名为MSFlexGrid 一个名为MSFlexGrid1

追问

改了，但还是不行

追答

这回是哪提示错误？

Answer 3

测试过代码没问题 只要添加一个textbox控件名为intext1 一个按钮command1
1个MSFlexGrid控件MSFlexGrid1