怎样取得MSFlexGrid单元的内容，单击单元表格就可取得该单元的内容？

Question

怎样取得MSFlexGrid单元的内容，单击单元表格就可取得该单元的内容？怎样实现？

Answer 1

在 MSFlexGrid 的 Click 事件中去做Private Sub MSFlexGrid1_Click()
  MsgBox MSFlexGrid1.Text
End Sub

Answer 2

或者是
Private Sub MSFlexGrid1_Click()
  MsgBox MSFlexGrid1.TextMatric(MSFlexGrid1.Row,MSFlexGrid1.Col)
End Sub

Answer 3

楼上说的可以，但只适用于鼠标操作，用下面的事件,适用于鼠标和键盘.
Private sub msflexgrid1_Entercell()
    msgbox msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.col)end sub

Answer 4

xxxxx.row
xxxxx.col
不该是定数，随机单击某个单元都能取得，怎样确定xxxxx.row
和xxxxx.col?

Answer 5

Private Sub MSFlexGrid1_Click()
  MsgBox MSFlexGrid1.TextMatric(MSFlexGrid1.Row,MSFlexGrid1.Col)
End Sub这个就可以啊，而且行和列也是随即的啊！
如果你要取整行的数据可以在一行里设置一个焦点
下面是我点MSFLEXGRID空件，把整行数据显示在TEXT控件里的例子
Private Sub MSHFlexGrid1_Click()
    On Error Resume Next
    MSHFlexGrid1.Col = 1
    Str = MSHFlexGrid1.Text
    If MSHFlexGrid1.Text = "" Then Exit Sub
    sqlStr = "select * from MS_ZLGL_A where sid='" & Trim(Str) & "'"
    Set adoq1 = H_CN.Execute(sqlStr)
    If Not adoq1.EOF Then
        Text1(0).Text = ""
        Combo1.Text = ""
        Text1(1).Text = ""
        Text1(2).Text = ""
        Text1(3).Text = ""
        Text1(4).Text = ""
        Text1(5).Text = ""
        Text1(6).Text = ""
        Text1(8).Text = ""
        Text1(7).Text = ""
        Text1(9).Text = ""
        Text1(10).Text = ""
        Text1(0).Text = adoq1!sname
        Combo1.Text = adoq1!sex
        Text1(1).Text = adoq1!sid
        Text1(2).Text = adoq1!sage
        Text1(3).Text = adoq1!sbusyness
        Text1(4).Text = adoq1!sphone1
        Text1(5).Text = adoq1!sphone2
        Text1(6).Text = adoq1!sfax
        Text1(7).Text = adoq1!shandphone
        Text1(8).Text = adoq1!saddress
        Text1(9).Text = adoq1!slove
        Text1(10).Text = adoq1!sothers
    End If

Answer 6

我用
MsgBox MSFlexGrid1.TextMatrix(MSFlexGrid1.Row,MSFlexGrid1.Col)
试了，MSFlexGrid1.Row和MSFlexGrid1.Col都是定数，不是随机的不是[MSFlexGrid1.TextMatric]