Dim txt As String = e.Form.Controls("TextBox11").Text
Dim tbl As Table = Tables("修改已扫码_Table1")
If txt = "" Then
tbl.Filter = "订单号 = '" & Tables("分派工序_table2").Current("订单号") & "'"
Else
txt = "'%" & txt & "%'"
tbl.Filter = "订单号 = '" & Tables("分派工序_table2").Current("订单号") & "' and (款号 Like " & txt & " or 制单号 Like " & txt & " or 颜色 Like " & txt & " Or 工序号 Like " & txt & " Or 实际生产员工 Like " & txt & " Or 工序名 Like " & txt & ")"
End If