- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 界面问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=85934)
-- 发布时间：2016/6/6 10:39:00
--
1、Tables("表a").Filter = "审核 is null"
Tables("表a").Filter = "审核 = \'通过\'"
2、直接统计赋值
http://www.foxtable.com/help/topics/0393.htm
-- 发布时间：2016/6/6 18:04:00
--
试试改成
Select Case e.Node.Text
-- 发布时间：2016/6/6 18:08:00
--
那就这样写
e.Form.Controls("Table1").Table.Filter = "审核 = \'通过\'"
-- 发布时间：2016/6/7 8:47:00
--
1.可以写到窗口计时器事件中http://www.foxtable.com/help/topics/1322.htm可以定时刷新
-- 发布时间：2016/6/7 17:39:00
--
方法一：
窗口定时器中：
Dim cnt As Integer
cnt = DataTables("监理招标信息").Compute("Count([审核])", "审核 is null")
e.form.Controls("Label1").Text = value
定时器可以设置为一秒运行一次：
http://www.foxtable.com/help/topics/1301.htm
方法二：
在表的DatacolCahnged事件：
if e.DataCol.Name = "审核" AndAlso Forms("窗口1").opened Then
Dim cnt As Integer
cnt = e.DataTable.Compute("Count([审核])", "审核 is null")
Forms("窗口1").Controls("Label1").Text = value
end if
-- 发布时间：2016/6/8 8:13:00
--
呵呵，建议多学习，否则别人帮你写的代码，你没有办法理解，一个笔误能害死你：
if e.DataCol.Name = "审核" AndAlso Forms("窗口1").opened Then
Dim cnt As Integer
cnt = e.DataTable.Compute("Count([审核])", "审核 is null")
Forms("窗口1").Controls("Label1").Text = cnt
end if
