是这个? MSHFlexGrid1.SelectionMode = flexSelectionByRow 还是 Private Sub Form_Load() With MSHFlexGrid1 .FixedCols = 0 .Cols = 2 .Rows = 0 .AddItem "1" & vbTab & "11" .AddItem "2" & vbTab & "22" .AddItem "3" & vbTab & "33" End With End SubPrivate Sub MSHFlexGrid1_RowColChange() Static intPrevRow As Long If MSHFlexGrid1.Row <> intPrevRow Then intPrevRow = MSHFlexGrid1.Row Dim i As Long For i = 0 To MSHFlexGrid1.Cols - 1 MsgBox MSHFlexGrid1.TextMatrix(intPrevRow, i) Next End If End Sub
点击得到行代码
msgrid1.Col就是你选择的列号
msgrid1.Row 就是你选择的行号
msgrid1.text就是你选择单元格的内容。
MSHFlexGrid1.SelectionMode = flexSelectionByRow
还是
Private Sub Form_Load()
With MSHFlexGrid1
.FixedCols = 0
.Cols = 2
.Rows = 0
.AddItem "1" & vbTab & "11"
.AddItem "2" & vbTab & "22"
.AddItem "3" & vbTab & "33"
End With
End SubPrivate Sub MSHFlexGrid1_RowColChange()
Static intPrevRow As Long
If MSHFlexGrid1.Row <> intPrevRow Then
intPrevRow = MSHFlexGrid1.Row
Dim i As Long
For i = 0 To MSHFlexGrid1.Cols - 1
MsgBox MSHFlexGrid1.TextMatrix(intPrevRow, i)
Next
End If
End Sub
在这个事件可以确定你所点击的行数object.rowcell和列数object.rowcell
mrc.Open "select * from student where name='" & Trim(MSHFlexGrid2.TextMatrix(MSHFlexGrid2.Row, 1)) & "'", cnn, adOpenStatic, adLockOptimistic