设计了一个查询窗体,有一个文本输入控件,和两个时间输入控件,文本控件是要求模糊条件,现在通过两段代码都能分别操作查询,但两个条件同时输入时,提示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