VB6.0的Private Sub MSHFlexGrid1_Click(Index As Integer)应用问题？数据库高手请留步！

来源：百度知道 编辑：UC知道 时间：2024/06/18 18:50:39
谢谢您的解答！

'数据库连接
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db_cfg.mdb;Persist Security Info=False;"
rs.Open "select * from 款式信息加载", cn, adOpenKeyset, adLockOptimistic '查询
Set MSHFlexGrid2(0).DataSource = rs
MSHFlexGrid2(0).ColWidth(0) = 300: MSHFlexGrid2(0).ColWidth(1) = 380: MSHFlexGrid2(0).ColWidth(2) = 180: MSHFlexGrid2(0).ColWidth(3) = 180: MSHFlexGrid2(0).ColWidth(4) = 180
MSHFlexGrid2(0).ColWidth(5) = 180: MSHFlexGrid2(0).ColWidth(6) = 180: MSHFlexGrid2(0).ColWidth(7) = 180: MSHFlexGrid2(0).ColWidth(8) = 180
MSHFlexGrid2(0).ColWidth(9) = 2100: MSHFlexGrid2(0).ColWidth(10) = 800: MSHFlexGrid2(0).ColWidth(11) = 1100: MSHFlexGrid2(0).ColWidth(12) = 410: MSHFlexGrid2(0).ColWidth(13) = 900

1.我想在MSHFlexGrid1_Click的事件中，将一行选定的所有字段内容分别显示在指定的Text文本框中？

Private Sub MSHFlexGrid1_Click(Index As Integer)

End Sub<

1#
控件：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
这样应该能实现你要的功能了吧！