Question

VB 点击list1里的内容在MSHFlexGrid1内显示出来

'打开程序首先数据库连接
Str = App.Path
If Right(Str, 1) <> "\" Then
Str = Str & "\data"
Else
Str = Str & "data"
End If
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Str & "\shujuku.mdb" & ";Jet OLEDB:Database password=123"

'MSHFlexGrid1其次读取数据库内容

Db.Open Str
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "SELECT * FROM LcPassWord", Db, adOpenDynamic, adLockOptimistic

If Rs.RecordCount > 0 Then
List1.Clear
Rs.MoveFirst
Do While Not Rs.EOF
List1.AddItem Rs.Fields("text1")
Rs.MoveNext
Loop
Rs.MoveFirst
' Set MSH.Recordset = Rs
End If

'list1里点击的内容
If Rs.RecordCount > 0 Then
Set MSHFlexGrid1.Recordset = Rs
End If

现在是,list1读取数据库text1列的内容,如果有多个相同也只是显示一行,当点击list内的一行比如"123"则MSHFlexGrid1内显示除数据库text1列内所有拥有123值
请高手帮忙!先给20,后续再加80分!求等啊,先在此谢谢了
If Rs.RecordCount > 0 Then
List1.Clear
Rs.MoveFirst
Do While Not Rs.EOF
List1.AddItem Rs.Fields("text1") '估计是在这里加个重复判断
Rs.MoveNext
Loop
Rs.MoveFirst
' Set MSH.Recordset = Rs
End If

If Rs.RecordCount > 0 Then
Set MSHFlexGrid1.Recordset = Rs '估计是在这里也要加个判断
End If

Answer 1

思路：
利用点击的该字段值，进行 Select 语句查询，然后返回到 MSHFlexGrid1里。

追问

高手你好,我知道思路,就是这段代码不会写,请求帮忙啊

追答

一两句话说不清楚，又无法写代码说明：
相信我的话，把你的半成品发给我，我帮你写好，发还给你。

扣我：四七另六九二二三六