此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

在  型号规格 的TextChanged事件代码如下

Dim va As WinForm.TextBox = e.Form.Controls("型号规格")
Tables("物料信息").Filter = "型号规格 like \'%" & va.text.Replace("*","[*]") & "%\'" 

现在比方在型号规格 输入 a 只想筛选出 AA的，不想BB的也筛选出有 A  的怎么实现

按照老师的指点

Dim va As WinForm.TextBox = e.Form.Controls("型号规格")

Dim Filter As String
With e.Form.Controls("物料名称")
    If .Value IsNot Nothing Then
        If .value = "全部" Then
            Filter = "物料名称 <> \'\'"
        Else
            Filter = "物料名称 = \'" & .Value & "\'"
        End If
    End If
End With
With e.Form.Controls("型号规格")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
               Filter = Filter &  "型号规格 like \'%" & va.text.Replace("*","[*]") & "%\'"\'"
    End If
End With

If Filter > "" Then
    Tables("物料信息").Filter = Filter
End If

这个代码如果是 按钮 的 单击事件 完全可以，没有问题。为什么放在 文本框 的  TextChanged  事件里面就不行了。