其实用不着搞这么多查询框 一个textbox查询字符 另外加几个时间的就可以了 字符查询 可以在textbox的textchanged事件里写代码
With e.Form
If e.sender.text <> "输入关键字查询" Then
Dim dst As Table = Tables(要查询的表)
Dim txb1 As WinForm.TextBox = .Controls("TextBox1")
dst.Filter = "[字符类列名1] Like '*" & txb1.text & "*' or [字符类列名2] Like '*" & txb1.text & "*' Or [字符类列名3] Like '*" & txb1.text & "*' Or [字符类列名4] Like '*" & txb1.text & "*'"
End If
End With