- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请专家帮我看看这段代码有问题吗? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102992)
-- 发布时间：2017/6/28 21:14:00
-- 请专家帮我看看这段代码有问题吗?
Dim cnt As Integer
= DataTables("监造统计").Select("[监造状态]
in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0").Count
If cnt > 0 Then
Tables("监造统计").filter = "[监造状态]
in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0"
messagebox.show("总共有" & cnt
& "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
以上的代码运行后,Tables("监造统计").filter不起作用,但 messagebox.show能够显示准确的信息.我实在找不出问题在哪里?
谢谢专家了!
-- 发布时间：2017/6/28 21:24:00
--
你看到的是窗口表吧？
改一下
Dim cnt As Integer = DataTables("监造统计").Select("[监造状态] in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0").Count
If cnt > 0 Then
e.Form.Controls("Table1").Table.filter = "[监造状态] in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0"
messagebox.show("总共有" & cnt & "项物资已到或超过交货期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2017/6/28 21:40:00
--
-- 发布时间：2017/6/28 21:42:00
--
e.Form.Controls("Table1").Table.filter = "[监造状态] in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0"报错.
-- 发布时间：2017/6/28 21:53:00
-- 回复：（audience68） e.Form.Controls("Table1...
这是报错信息
此主题相关图片如下：报错信息.jpg
-- 发布时间：2017/6/28 22:03:00
--
那改成
Forms("窗口1").Controls("Table1").Table.filter = "[监造状态] in (\'在监造\',\'在监控\') and 距离交货期的时间 <= 0"