主题：[求助]

设计了一个查询窗体，有一个文本输入控件，和两个时间输入控件，文本控件是要求模糊条件，现在通过两段代码都能分别操作查询，但两个条件同时输入时，提示AND运算符前缺少操作数：请问代码在哪里错了？

Dim tbl As Table = Tables("查询_Table1")
Dim txt As String = e.Form.Controls("TextBox1").TEXT
If txt = "" Then
   tbl.Filter = "  " 
Else
    txt = "'%" & txt & "%'" 
    tbl.Filter = "XM Like " & txt & " Or TXRY Like " & txt
End If

With e.Form.Controls("KS")
    If .Value IsNot Nothing Then
        If tbl.Filter >"" Then
            tbl.Filter = Filter & " And "
        End If
        tbl.Filter = Filter & "FSSJ >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("JS")
    If .Value IsNot Nothing Then
        If tbl.Filter >"" Then
            tbl.Filter = Filter & " And "
        End If
        tbl.Filter = Filter & "FSSJ <= #" & .Value & "#"
    End If
End With

还是不行，而且代码中这个Dim Filter As String 是不能少的，加上后运行，提示错误：

此主题相关图片如下：未命名.bmp

问题解决，非常感谢！

按上面的代码稍稍变了一下，查询字段来自两个文本控件，不知道如何用AND连接，可以组合多个文本筛选条件，下面的代码不知如何修改才能达到目的：

Dim filter As String = ""
Dim txt As String = e.Form.Controls("TextBox1").TEXT
If txt > "" Then
Filter = Filter & " And "

    txt = "'%" & txt & "%'" 
    Filter = "部门名称 Like " & txt 
End If

Dim txt1 As String = e.Form.Controls("TextBox2").TEXT
If txt1 > "" Then
    txt1 = "'%" & txt1 & "%'" 
    Filter = "专业 Like " & txt1
End If

If Filter > "" Then
    Tables("机构").Filter = Filter
End If