Dim mhcx1 As WinForm.TextBox = e.Form.Controls("模糊查询")
Dim filter As String = "1=2" For Each c As Col In Tables("组装单.组装明细单").cols filter &= " or convert(" & c.name & ",'System.String') like '%" & mhcx1.Text & "%'" Next Tables("组装单.组装明细单").Filter = filter