主题：[求助]后台筛选

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()

但是找不到。。。

'Dim Filter As String

'

'With Forms("合同到款").Controls("textBox1")

    'Dim txt As String = .Value

     'DataTables("合同管理").LoadFilter  = "[合同编号] = '" & txt & "'"

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

'

'End With

这是针对  合同编号来  后台查询的，这个可以，

本来想针对多个列来查询的，所以看到这个帖子，改了改，不知道哪里出了问题。

红袍哥们，帮我看看。