主题：筛选

请教一下，为什么从应用窗口进入，用染号代号筛选不出来，但是从设计窗口里面的预览里面进去又可以，这是什么原因？

 

代码如下：Dim filter As String
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
    Dim var As String = e.Form.controls(st).value
    If var IsNot Nothing Then
        var = var.replace("*","[*]")
        If filter <> "" Then
            filter = filter & " And " & st & " Like '*" & var & "*'"
        Else
            filter = st & " like '*" & var & "*'"
        End If
    End If
Next

Tables("物料信息").filter = filter

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


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

你代码写在什么事件?

 不可能吧？试试这样，不行，就是上次例子

 

Dim filter As String = “”
Dim sts() As String = {"染料代号","存货名称","供应商"}
For Each st As String In sts
    Dim var As String = e.Form.controls(st).Text
    If var IsNot Nothing Then
        var = var.replace("*","[*]")
        If filter <> "" Then
            filter = filter & " And " & st & " Like '*" & var & "*'"
        Else
            filter = st & " like '*" & var & "*'"
        End If
    End If
Next

Tables("物料信息").filter = filter

e.Form.controls(st).value 改为 e.Form.controls(st).TExt 看看