who can help me? 关于MSFlexGrid控件(欢迎 faysky2 进)

Question

比如MSFlexGrid中有2列,5行的数据现我想在MSFlexGrid中双击某一行时,将该行的2列数据取出来分别给2个text控件请教该咋办呢?

Answer 1

Private Sub MSHFlexGrid1_SelChange()
   Dim PosNew As Long
   PosNew = Me.MSHFlexGrid1.Row
   Debug.Print Me.MSHFlexGrid1.Row
   Text1.Text = Me.MSHFlexGrid1.TextMatrix(PosNew, 1)
   Text2.Text = Me.MSHFlexGrid1.TextMatrix(PosNew, 2)
End Sub

Answer 2

简单的就这样：Private Sub MSFlexGrid1_DblClick()
    With MSFlexGrid1
        Text1.Text = .TextMatrix(.Row, 0)  '取第1列的值
        Text2.Text = .TextMatrix(.Row, 2)  '取第3列的值
    End With
End Sub