主题：Filter

Dim Filter As String

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口_Table1")
If txt = "" Then
   tbl.Filter = ""
Else
Filter = "第一列='" & txt1 & "'"
   Tables("窗口_Table1").Filter = Filter
End If

当我在TextBox1填入数据A时，Filter = "第一列='A'",

当我在TextBox1重新填入数据B时，Filter = "第一列='A'" OR "第一列='B'" ,如何实现？

.NET Framework 版本：4.0.30319.1
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
Syntax error: Missing operand after 'And' operator.

Dim Filter As String
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim txt1 As String = e.Form.Controls("TextBox2").Text
Dim tbl As Table = Tables("五级表|工步_Table1")
If txt = "" OrElse txt1 = "" Then
    tbl.Filter = ""
Else
    Filter = txt & "='" & txt1 & "'"
    msgbox(Filter)
    If Tables("五级表|工步_Table1").Filter > "" Then
        Tables("五级表|工步_Table1").Filter = Tables("五级表|工步_Table1").Filter & "and"
        msgbox(Filter)
    End If
    Tables("五级表|工步_Table1").Filter = Tables("五级表|工步_Table1").Filter & Filter
    msgbox(Filter)
End If

.NET Framework 版本：4.0.30319.1
Foxtable 版本：2022.8.18.1
错误所在事件：
详细错误信息：
Syntax error: Missing operand after 'And' operator.

Dim Filter As String
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim txt1 As String = e.Form.Controls("TextBox2").Text
Dim tbl As Table = Tables("五级表|工步_Table1")
If txt = "" OrElse txt1 = "" Then
    tbl.Filter = ""
Else
    Filter = txt & "='" & txt1 & "'"
    msgbox(Filter)
    If Tables("五级表|工步_Table1").Filter > "" Then
        Tables("五级表|工步_Table1").Filter = Tables("五级表|工步_Table1").Filter & " and "
        msgbox(Filter)
    End If
    Tables("五级表|工步_Table1").Filter = Tables("五级表|工步_Table1").Filter & Filter
    msgbox(Filter)
End If

Dim Filter As String
Dim idx As String = "-1,"
Dim pdr As DataRow = Nothing
Dim cs As String = "工序,设备名称,机床代号,机床编号,计划作业人员,按时间加工单价"
Dim flag As Boolean
For Each dr As DataRow In DataTables("工艺内容").Select("工序 is not null ", cs)
    flag = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag Then
        idx &= pdr("_Identify") & ","
    End If
    pdr = dr
Next

If pdr IsNot Nothing Then
    idx &= pdr("_Identify") & ","
End If

If Filter > "" Then
    Tables("四级表|工序_Table1").Filter = Filter
End If