以文本方式查看主题

-  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=99168)
--  作者：ycwk
--  发布时间：2017/4/13 17:40:00
--  如何刷新当前窗口表？
当前的窗口表可能是经过条件筛选过的，如果是此时数据发生变化，仍然想依照当前的筛选结果刷新怎么写代码？
--  作者：有点色
--  发布时间：2017/4/13 17:56:00
--  

红色代码是刷新数据。

 

Dim t As Table = Tables("表A")
Dim temp As String = t.Filter
t.DataTable.Load
t.Filter = temp
--  作者：有点色
--  发布时间：2017/4/13 17:56:00
--  

 

你也可以在beforeLoad事件和afterLoad事件写代码，大致和2楼的代码相似。

 

 
--  作者：ycwk
--  发布时间：2018/8/13 11:52:00
--  
 如果想在当前表table 已过滤的显示结果中，再进行筛选，该怎么写？
--  作者：有点甜
--  发布时间：2018/8/13 12:27:00
--  
以下是引用ycwk在2018/8/13 11:52:00的发言：
 如果想在当前表table 已过滤的显示结果中，再进行筛选，该怎么写？

 

CurrentTable.Filter = iif(CurrentTable.Filter>"", "(" & CurrentTable.Filter & ") and ", "") & "第一列 = \'1\'"
msgbox(CurrentTable.Filter)