主题：[求助]列表框做窗口筛选问题

请问大神，想做个窗口筛选，其中有三个ComboBox，每个对应表中的一列，想实现三个combobox每个做了选择后其他两个的列表选项只剩下筛选后的集合，如果是单一结果直接显示在列表框里

http://www.foxtable.com/webhelp/scr/1523.htm

你好，我看过这个示例。但是这个示例必须得从第一个combobox开始选择，我想三个combobox是并列关系，先选哪一个另外两个都可以有筛选，而且当筛选完的符合项只有一项时直接显示在combobox中

求大神帮帮忙

参考代码

 

Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
Dim cmb1 As WinForm.ComboBox
cmb1 = Forms("窗口1").Controls("ComboBox2")
Dim cmb2 As WinForm.ComboBox
cmb2 = Forms("窗口1").Controls("ComboBox3")
Dim filter As String = "1=1"
If cmb.Text > "" Then
    filter &= " and 序号 = '" & cmb.Text & "'"
End If
If cmb1.Text > "" Then
    filter &= " and 班组 = '" & cmb1.Text & "'"
End If
If cmb2.Text > "" Then
    filter &= " and 姓名 = '" & cmb2.Text & "'"
End If
cmb.ComboList = DataTables("表A").GetComboListString("序号", filter)
cmb1.ComboList = DataTables("表A").GetComboListString("班组", filter)
cmb2.ComboList = DataTables("表A").GetComboListString("姓名", filter)
If cmb.ComboList.Split("|").length = 1 Then
    cmb.text = cmb.ComboList
End If
If cmb1.ComboList.Split("|").length = 1 Then
    cmb1.text = cmb1.ComboList
End If
If cmb2.ComboList.Split("|").length = 1 Then
    cmb2.text = cmb2.ComboList
End If

超级棒呀大神！虽然不知道代码的意思但是实现我想要的啦！谢谢啦！