我建了1个窗体
用adodc加datagrid实现了将SQL的数据显示到窗体
但我还想建二级联动查询.
不知从何下手
请指点
第一级(ComboBox):分类(在VB里输入固定的字符)
第二级(ComboBox):分小类(根据每第一级的结果查出SQL库里的分类并将数据显示到datagrid表里)
第三级(TextBox):具体数据(根据第二级的结果输入模糊字符进行模糊查询,输入时要带记忆功能)
这个问题是简单还是复杂
在COMBO 的Click()事件里写查询什么的,N级都不怕
以下代码谨供参考
Private Sub Form_Load()
cmb_guige.Clear
cmb_guige.Clear
If conn() Then
If openrs("select * from xilie") Then
If Not (rs.EOF And rs.BOF) Then
Do While Not rs.EOF
cmb_xilie.AddItem rs!xilie_name
rs.MoveNext
Loop
cmb_xilie.ListIndex = 0
End If
Else
End If
Else
MsgBox "数据库文件损坏,请重新安装程序!", vbOKOnly, "应用程序错误!"
Unload Form1
End If
end sub
Private Sub cmb_xilie_Click()
cmb_guige.Clear
If conn() Then
If openrs("select * from pr where pr_belong='" + cmb_xilie.Text + "'") Then
If Not (rs.EOF And rs.BOF) Then
Do While Not rs.EOF
cmb_guige.AddItem rs!pr_guige
rs.MoveNext
Loop
cmb_guige.ListIndex = 0
End If
End If
End If
End Sub
我做的这个是二级连动
三级连动方法应该一样的
主要是在FORM加载的时候把第一级加载
在第一级改变的时候根据改变加载第二级