如下代码

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("制袋选产品_Table1")
tbl.Filter= ""
If txt = "" Then
    tbl.Filter = ""
Else
   txt = "\'*" & txt.Replace("*","[*]") & "*\'"
    \'或者 txt = "\'*" & strtowide(txt) & "*\'"

If txt.IndexOf(" ") = -1 Then \'如果没有空格
tbl.filter = " chanpinname Like " & txt & " Or guige Like " & txt & " "
    tbl.Sort = "chanpinname desc,guige desc,danwei desc"

Else
\'Dim txt As String
Dim txt2 As String
Dim txt3 As String
Dim Values() As String
Values = txt.split(" ")
txt2=values(0)& "*\'"
txt3="\'*"& values(1)

    tbl.filter = "chanpinname Like " & txt2 & " And guige Like " & txt3 & " "
    tbl.Sort = "chanpinname desc,guige desc,danwei desc"
\'Messagebox.show(tbl.filter)
End If
End If

 如果想添加 and fenlei="制袋" 该怎么修改？

chanpinname Like " & txt & " Or guige Like " & txt & "  and fenlei ="制袋" "     

 tbl.Sort = "chanpinname desc,guige desc,danwei desc"

这样写代码不规范，该如何写呢？

这样 也不行

tbl.Filter= "fenlei=制袋"
If txt = "" Then
    tbl.Filter = "fenlei=制袋"
Else

代码 通过检测 但是运行的时候出错。