很简单呀!你只要把MSHFlexgrid的数据源rdo更新一便不就行了吗?如何更新使用循环呀!
这是我的一个例子,希望对你有启示
Dim i, j As Integer
For i = 1 To msgProject.Rows - 1
If (Not mrs.EOF) And bAddNew Then
For j = 2 To msgProject.Cols - 1
mrs.Fields(1).Value = Text1.Text
mrs.Fields(2).Value = Left(msgProject.TextMatrix(i, 1), 2)
mrs.Fields(j + 1).Value = msgProject.TextMatrix(i, j)
Next j
mrs.Update
mrs.MoveNext
Else
If msgProject.TextMatrix(i, 2) <> "0" Or msgProject.TextMatrix(i, 2) <> "" Then
bAddNew = False
mrs.AddNew
For j = 2 To msgProject.Cols - 1
mrs.Fields(1).Value = Text1.Text
mrs.Fields(2).Value = Left(msgProject.TextMatrix(i, 1), 2)
mrs.Fields(j + 1).Value = msgProject.TextMatrix(i, j)
Next j
mrs.Update
End If
End If
sub grid_click()
dim I as integer ,j as long ,k as long
txt.Top = Grid.Top + Grid.RowHeight(Grid.RowSel) * Grid.RowSel + 5 ''加5是为了让文本框完全在网格里
j=grid.colsel
for i = 0 to j
k=k+grid.colwidth(i)
next
txt.left=grid.left + k + 5
txt.height = grid.rowheight(grid.rowsel)- 5
txt.width = grid.colwidth (j)
txt.Visible = True
txt.SetFocus
txt.Text = Grid.TextMatrix(Grid.RowSel, 7)
txt.SelStart = 0
txtSelLength = Len(txtNum.Text)
end sub
Microsoft FlexGrid (MSFlexGrid) 控件可以显示网格数据,也可以对其进行操作。它提供了高度灵活的网格排序、合并和格式设置功能,网格中可以包含字符串和图片。如果将它绑定到一个 Data 控件上,那么 MSFlexGrid 显示的将是只读的数据。
--------------微软说的