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

2024-12-01 22:59:48

推荐回答（3个）

回答（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

回答（2）：

可以使用行列定位的方法

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

回答（3）：

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