我用MSHFlexGrid显示数据库里的记录,然后点击MSHFlexGrid中的某一行的时候,就把该行的记录显示在文本框中。
代码如下
Private Sub MSHFlexGrid1_Click()
Dim i As Integer
For i = 0 To 8
Text1(i).Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
Next
End Sub想问下大家,用DataGrid控件如何实现这个功能?
代码如下
Private Sub MSHFlexGrid1_Click()
Dim i As Integer
For i = 0 To 8
Text1(i).Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
Next
End Sub想问下大家,用DataGrid控件如何实现这个功能?
如果rs没断电,看看能不能从rs里查。
DataGrid1.Row = i
Text1(i).Text = DataGrid1.Columns(i).Value '循环得到各列值
Next i