If e.Form.Controls("TextBox2").Text = "" Then
Tables("录入窗口_table3").filter = "总sku='" & "null" & "'"
Else
Dim Filter As String
Dim txt1 As String = e.Form.Controls("TextBox2").Text
Dim tbl As Table = Tables("录入窗口_table3")
If txt1 = "" Then
tbl.Filter = ""
Else
Dim Values() As String
Values = txt1.split(",")
Dim f As String
For Index As Integer = 0 To Values.Length - 1
If f > "" Then f = f & " or "
Dim txt As String =Values(Index)
txt = "'%" & txt.replace("*","[*]") & "%'"
f = f & "总sku Like " & txt
Next
tbl.Filter = f
End If
If Filter > "" Then
Tables("录入窗口_table3").Filter = Filter
End If
End If
怎么将模糊筛选改为普通筛选
加好友 
发短信
Post By：2022/1/7 17:57:00 [显示全部帖子]
此主题相关图片如下：212e0cacb31560fdac1116d4f454734.png