双击MSFLEXGRID弹出一窗体显示某条记录，怎样实现？

Question

双击MSFLEXGRID弹出一窗体显示某条记录，怎样实现？

Answer 1

Dim CurRow As Integer
CurRow = faInfo.Row
If CurRow = faInfo.Rows Then Exit SubDoc_ID = Trim(faInfo.TextMatrix(CurRow, 0))Call 显示(Doc_ID)
Frm.Show

Answer 2

Private Sub MSHFlexGrid1_DblClick()
......
End Sub

Answer 3

只需要MSHFlexgird1.mouserow打到行这样就可以找到其他的所有单元格的内容了。

Answer 4

Private Sub MSHFlexGrid1_DblClick()
Dim msg As String
For i = 0 To MSFlexGrid1.Cols - 1
msg = msg & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, i)
Next
MsgBox msg
End Sub

Answer 5

我正在做项目常这样用： 
Private Sub MSHFlexGrid_DblClick()
Dim msg As String
if MSFlexGrid1.Row<MSFlexGrid1.rows then
msg = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 一个主键的列索引) '假定该字段是varchar
endif
然后以次为条件检索出相关信息
信息窗体.show
End Sub