主题：[求助]在分页加载情况下开启自定义筛选

改成这样

Dim txt As String = e.Form.Controls("TextBox1").Text

Dim tbl As Table = Tables("采购目录_Table1")
If txt = "" Then

    tbl.DataTable.loadPage = 0
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load
Else
    txt = "'%" & txt & "%'"
    tbl.DataTable.loadFilter = "类型 Like " & txt & " Or 品名 Like " & txt & " Or 特属科 Like " & txt & " Or 治疗属性 Like " & txt

    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If