Question

如何向vb MSFlexGrid控件添加数据？

比如说，有三个textbox控件，一个MSFlexGrid控件。
其中三个textbox控件分别绑定到data1的一个字段：
text1.text=data1.recordset("姓名")
text2.text=data1.recordset("年龄")
text3.text=data1.recordset("性别")

现在想要把text1.text、text2.text、text3.text的内容在MSFlexGrid控件中显示出来。怎么弄啊？
xuyile510824兄弟：我用了你提供的方法，老是提示说“下标越界？”怎么办啊？

Answer 1

VB6.0可使用绑定到数据源、使用AddItem方法添加数据或逐一单元格添加数据，来向

MSFlexGrid控件添加数据。

1）使用绑定到数据源。

可使用ADODB数据源或Data控件绑定MSFlexGrid控件。

2）使用AddItem方法添加数据。

AddItem 方法 (MSHFlexGrid)，该方法将一个行添加到 MSHFlexGrid 控件中。

Private Sub Command1_Click()
    MSFlexGrid1.Cols = 5
    MSFlexGrid1.AddItem vbTab & "1" & vbTab & "2" & vbTab & "3" & vbTab & "4"
    MSFlexGrid1.AddItem vbTab & "5" & vbTab & "6" & vbTab & "7" & vbTab & "8"
    MSFlexGrid1.AddItem vbTab & "9" & vbTab & "10" & vbTab & "11" & vbTab & "12"
    MSFlexGrid1.AddItem vbTab & "13" & vbTab & "14" & vbTab & "15" & vbTab & "16"
    MSFlexGrid1.RemoveItem (1) '删除默认空白行
End Sub

3）逐一单元格添加数据。
Private Sub Command2_Click()
    Dim i, j, k As Integer
    '设置行列数
    With MSFlexGrid1
    .Rows = 5
    .Cols = 5
    End With
    '添加表头
    MSFlexGrid1.Row = 0
    For i = 1 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.Col = i
        MSFlexGrid1.Text = "列" & i
    Next
    '添加记录
    k = 1
    For i = 1 To MSFlexGrid1.Rows - 1
        For j = 1 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Row = i
            MSFlexGrid1.Col = j
            MSFlexGrid1.Text = k
            k = k + 1
        Next
    Next
End Sub

Answer 2

可以使用行列定位的方法

with MsFlexGrid1
.row=2
.col=1
.text=text1.text
.col=2
.text=text2.text
.col=3
.text=text3.text
end with

Answer 3

自己看效果 然后你就全明白了
MsFlexGrid.TextMatrix(2,1)=Text1.Text
MsFlexGrid.TextMatrix(2,2)=Text1.Text
MsFlexGrid.TextMatrix(2,3)=Text1.Text