Question

关于VB MSHFlexGrid查询显示

我的目的是点击list2的名字（部门），然后在MSHFlexGrid显示 在数据库查询到的 部门 = 点击的部门，所有人的姓名

Private Sub List2_Click()Dim iDim aFor i = 0 To List2.ListCount - 1If List2.Selected(i) Thena = List2.List(i)End IfNextDim sql As StringDim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\KQ\ts\access\test.mdb;Persist Security Info=False"conn.Opensql = "select 姓名 from ts_renyuan where 部门 = '" & a & "' "conn.Execute sqlAdodc1.RefreshSet MSHFlexGrid1.DataSource = NothingSet MSHFlexGrid1.DataSource = rs ------- 光标在这显示错误conn.CloseEnd Sub
这样执行的话显示 Hierarchical FlexGrid 不支持所要求的数据绑定类型





若以下回答无法解决问题，邀请你更新回答

Answer 1

我这里就是用的FlexGrid的，你可以看一下
参考网址：http://www.xiurc.com/Html/?1_4.html