窗口的两个：ComboBox，ValueChanged发生变化后：筛选table - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口的两个：ComboBox，ValueChanged发生变化后：筛选table

这个窗口中有两个：ComboBox，分别为：执行情况（ComboBox4），单据状态（ComboBox3）

当这两个：ComboBox的：ValueChanged发生变化时，怎么，联动切换？

我现在在：单据状态（ComboBox3）的：ValueChanged写了如下代码：

Dim filter As String=""

With e.Form.Controls("ComboBox4")

If .Value <> "所有" Then

Filter = "执行情况 = '" & .Value & "'"

End If

End With

With e.Form.Controls("ComboBox3")

If filter > "" Then

filter = filter & " and "

End If

If .Value <> "所有" Then

Filter ="单据状态 ='" & .Value & "' "

End If

End With

Tables("调单采购订单_table2").Filter=filter

执行情况（ComboBox4）的：ValueChanged写了如下代码：

Dim filter As String=""

With e.Form.Controls("ComboBox3")

If .Value <> "所有" Then

Filter ="单据状态 ='" & .Value & "' "

End If

End With

With e.Form.Controls("ComboBox4")

If filter > "" Then

filter = filter & " and "

End If

If .Value <> "所有" Then

Filter = "执行情况 = '" & .Value & "'"

End If

End With

Tables("调单采购订单_table2").Filter=filter

现在做出来的效果是：改变ComboBox3，ComboBox4的值时，只执行自己的，别管另一个ComboBox的值。
图片点击可在新窗口打开查看

此主题相关图片如下：55.jpg

[此贴子已经被作者于2015/12/27 13:37:18编辑过]

此主题相关图片如下：66.jpg

写到textchanged事件。

我原来就写在TEXTCHANGED里面的，感觉一样的。

选择：“所有”时，还报错。
图片点击可在新窗口打开查看

此主题相关图片如下：77.jpg

[此贴子已经被作者于2015/12/27 14:17:39编辑过]

Dim filter As String=""
With e.Form.Controls("ComboBox4")
    If .Value > "" AndAlso .Value <> "所有" Then
        Filter = "执行情况 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If filter > "" Then
        filter = filter & " and "
    End If
    If .Value > "" AndAlso .Value <> "所有" Then
        Filter ="单据状态 ='" & .Value & "' "
    End If
End With

还是一样的情况。

Dim filter As String=""
With e.Form.Controls("ComboBox4")
    If .Value > "" AndAlso .Value <> "所有" Then
        Filter = "执行情况 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value > "" AndAlso .Value <> "所有" Then
        If filter > "" Then
            filter = filter & " and "
        End If
        Filter ="单据状态 ='" & .Value & "' "
    End If
End With

这样好像行了。

Dim filter As String=""

With e.Form.Controls("ComboBox3")

If .Value > "" AndAlso .Value <> "所有" Then

Filter ="单据状态 ='" & .Value & "' "

End If

End With

With e.Form.Controls("ComboBox4")

If .Value > "" AndAlso .Value <> "所有" Then

If filter > "" Then

filter = filter & " and "

End If

Filter =filter & "执行情况 = '" & .Value & "'"

End If

End With

Tables("调单采购订单_table2").Filter=filter

主题：窗口的两个：ComboBox，ValueChanged发生变化后：筛选table