以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]撤销查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102610)
--  作者：起个好名
--  发布时间：2017/6/22 20:48:00
--  [求助]撤销查询
撤销查询并返回表格主界面的代码怎么写？
--  作者：有点色
--  发布时间：2017/6/23
--  

1、你查询时怎么操作的？

 

2、你表格的主界面只什么？
--  作者：1131369760
--  发布时间：2017/6/23 10:17:00
--  

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、表格主界面就是“火灾应急资源管理”表呀
--  作者：有点蓝
--  发布时间：2017/6/23 10:52:00
--  
参考：

DataTables("火灾应急资源管理").loadfilter = ""
DataTables("火灾应急资源管理").load()
maintable = Tables("火灾应急资源管理")