主题：[求助]撤销查询

1、Dim nms() As String={"TextBox1","TextBox2","TextBox3","TextBox4","DateTimePicker1","DateTimePicker2","TextBox5","TextBox6"}
Dim sps() As String={"'","'","'","'","#","#","'","'"}
Dim BJF() As String={"=","=","=","=","=","=","=","="}
Dim fds() As String = {"品类","单品","使用部门","管理责任人","使用日期","归还日期","存储位置","使用人记录"}
Dim Filter As String
For i As Integer = 0 To nms.length - 1
  If e.Form.controls(nms(i)).value IsNot Nothing Then
     If filter >"" Then
         filter=filter & "and"
     End If
     filter= filter & fds(i) & bjf(i) & sps(i) & e.Form.controls(nms(i)).value & sps(i)
   End If
Next
DataTables("火灾应急资源管理").loadfilter = filter
DataTables("火灾应急资源管理").load()

（这是我的查询命令）

2、表格主界面就是“火灾应急资源管理”表呀