- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- MainTableChanged中写入以下代码。不执行。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73742)
-- 发布时间：2015/8/25 17:58:00
-- MainTableChanged中写入以下代码。不执行。
MainTableChanged中写入以下代码。不执行。
If MainTable.Name = "施工合同" Then
Dim dt As Date = Date.Today
Dim dr As DataRow = DataTables("施工合同").Find("质保到期日 < = # " & dt & " # ")
If dr IsNot Nothing Then
dr("合同状态") = "质保到期"
If dr("有压质保金") = True Then
MessageBox.Show("工程质保已到期,请催收质保金!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("施工合同").Filter = "质保到期日 <= # " & dt & " # "
End If
End If
End If
在：命令窗口写，可以执行。
-- 发布时间：2015/8/25 18:00:00
--
你要切换到其他表，然后再切换到施工合同，才会执行代码的。
-- 发布时间：2015/8/25 18:12:00
--
我切换了，就是不行。
-- 发布时间：2015/8/25 18:14:00
--
你要点上面的表标题切换表。如果切换，不可能不执行代码。
-- 发布时间：2015/8/25 18:17:00
--
此主题相关图片如下：111122.png
-- 发布时间：2015/8/25 18:17:00
--
我就是切换的:表标题，但不执行。
-- 发布时间：2015/8/25 18:19:00
--
这个是我的：代码；
此主题相关图片如下：222.png
在命令窗口，就行。晕
-- 发布时间：2015/8/25 19:54:00
--
加入msgbox，看是否进入MainTableChanged事件
msgbox(maintable.Name)
-- 发布时间：2015/8/25 21:52:00
--
楼主： 你要是有N条符合条件的记录，那么只有第一个会执行，其他应该都不会的。
-- 发布时间：2015/8/27 11:34:00
-- 能执行：主表切换，但代码不执行。我有可能有：多条要执行的行。
此主题相关图片如下：11112.jpg