Dim str As String=e.Form.Controls("TextBox1").BindingField
Dim t As Table = Tables("合同信息总表")
If str = "" Then
t.Filter = ""
Else
Dim ary() As String = str.split(" ")
Dim idxs As String = "-1,"
For Each r As DataRow In t.DataTable.dataRows
Dim count As Integer = 0
For Each s As String In ary
For Each c As Col In t.Cols
If Cstr(r(c.name)).Contains(s) Then
count += 1
Exit For
End If
Next
Next
If count = ary.Length Then
idxs &= r("_Identify") & ","
End If
Next
t.Filter = "_Identify in (" & idxs.Trim(",") & ")"
End If
加好友 
发短信
Post By：2022/2/21 21:37:00 [只看该作者]
