UC知道谢谢了 呵呵
来源：百度知道 编辑：UC知道 时间：2024/07/07 20:21:28
这个也是100分的，麻烦你了
好的。
Dim conn As New ADODB.Connection, n
Dim rs As New ADODB.Recordset
conopn1
conn.Open (connstr)
If Option1.Value = True Then
Set rs = conn.Execute("select * from renwushu where id='" & Text1.Text & "'")
Set MSHFlexGrid1.Recordset = conn.Execute("select * from renwushu where id='" & Text1.Text & "'")
ElseIf Option2.Value = True Then
Set rs = conn.Execute("select * from renwushu where type='" & Combo2.Text & "'")
Set MSHFlexGrid1.Recordset = rs