主题：[求助]后台筛选

Dim st As String

st =e.form.Controls("TextBox1").Name

Dim filter As String = "1=1"

Dim sts() As String = {"合同编号","客户姓名","fa piao号","销售工程师"}

Dim  val As String = e.Form.Controls(st).value

If val > "" Then

    For Each st In sts

        filter = filter & " and " & st & " like '%" & val & "%'"

    Next

End If

DataTables("合同管理").LoadFilter = Filter

DataTables("合同管理").Load()