关于点击MSHFLEXGRID问题,好难解决~

Question

Private Sub MSHFlexGrid1_Click()
MsgBox (MSHFlexGrid1.Row & MSHFlexGrid1.Col)
Text1.Text = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col)
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
MSHFlexGrid1.Clear
str = Trim(Node)
If str <> "2" Then
If rs.State = adStateOpen Then rs.Close
rs.Open "select   *  from student where 班号=" & str & "", conn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
End If
End Sub
我的界面是这样的,旁边是一个TREEVIEW,然后点击后,就把数据库中的数据显示在MSHFLEXGRID中,但是好像MsgBox (MSHFlexGrid1.Row & MSHFlexGrid1.Col)中与对照的单元格不一样啊?

Answer 1

你应该这样:
MsgBox (MSHFlexGrid1.MouseRow & MSHFlexGrid1.MouseCol)

Answer 2

那就用：MsgBox (MSHFlexGrid1.MouseRow+1 & MSHFlexGrid1.MouseCol)

Answer 3

Private Sub MSHFlexGrid1_Click()
    Dim i,j
    i=MSHFlexGrid1.Row 
    j=MSHFlexGrid1.Col
    If MSHFlexGrid1.TextMatrix(i, j)="" then
        Exit Sub
    end if
    Text1.Text = MSHFlexGrid1.TextMatrix(i, j)
End Sub
我这样写的，使用的好像很正常

Answer 4

MsgBox (MSHFlexGrid1.Row & MSHFlexGrid1.Col)  ???????有语法错误吧！改： MsgBox CStr(MSHFlexGrid1.Row & MSHFlexGrid1.Col)