关于MSHFlexGrid在VB中的使用

控件：Combobox、Button、MSFLexGrid、text1、text2
首先你要确定你的Combobox内数据能筛选，Button点击后MSFLexGrid内的内容符合你的选择，一下是代码：（分2部分）
第一部分：测试点击MSFLexGrid行后，数据是否正常
Private Sub MSHFGrid_Click()
Dim i As Integer
For i = 1 To MSHFGrid.Cols - 1
MsgBox MSHFGrid.TextMatrix(MSHFGrid.Row, i)
'------------------
第二段代码（上面的MsgBox注释掉）
'------------------
Next i
End Sub
如果正常的能吧你所有所选行的列全部显示完成，且不提示“下界超标”后，加入第二段代码:
If i <> 0 Then
Dim j As Integer
j = MSHFGrid.MouseRow
Text1.Text = MSHFGrid.TextMatrix(j, 1)
Text2.Text = MSHFGrid.TextMatrix(j, 2)
Else
Text1.Text = ""
Text2.Text = ""

End If
这样应该能实现你要的功能了吧！

你就在MSHFLEXGRID，的click事件中写：

Private Sub MSFlexGrid1_Click()
Text1.Text = MSFlexGrid1.TextMatrix(Row, Col)
....
End Sub