给你个单击去一行数据的例子吧Private Sub MSHFlexGrid1_Click() Dim CurRow As Integer CurRow = MSHFlexGrid1.Row If CurRow = MSHFlexGrid1.Rows - 1 Then Exit Sub Txt(0).Text = Trim(MSHFlexGrid1.TextMatrix(CurRow, 1)) Txt(1).Text = Trim(MSHFlexGrid1.TextMatrix(CurRow, 2)) Txt(2).Text = MSHFlexGrid1.TextMatrix(CurRow, 3)End Sub
Dim CurRow As Integer
CurRow = MSHFlexGrid1.Row
If CurRow = MSHFlexGrid1.Rows - 1 Then Exit Sub
Txt(0).Text = Trim(MSHFlexGrid1.TextMatrix(CurRow, 1))
Txt(1).Text = Trim(MSHFlexGrid1.TextMatrix(CurRow, 2))
Txt(2).Text = MSHFlexGrid1.TextMatrix(CurRow, 3)End Sub