以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  模糊查找 窗口 用不了，是哪里出错  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=175136)

--  作者：jackpotgang --  发布时间：2022/2/21 21:37:00 --  模糊查找 窗口 用不了，是哪里出错 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

--  作者：有点蓝 --  发布时间：2022/2/21 22:03:00 --   没看懂代码要干嘛。要做什么功能，截图举例详细描述一下