以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用表记录窗口,日期判断后没按代码执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179627)

--  作者:jiterp
--  发布时间:2022/8/31 16:54:00
--  用表记录窗口,日期判断后没按代码执行
有一日期列,在表事件DataColChanged中设了

\'日期处理
If e.DataCol.Name = "djdate" Then
    Dim startdate As Date = "2022-08-01"
    If e.DataRow("djdate") < startdate Then
        MessageBox.Show("单据日期所在期间已经结账,将自动更改为当前日期!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        e.DataRow("djdate") = Date.Now()
    End If 
End If

如果直接操作表,上面执行是对的,如果通过表记录窗口执行,有提示,但是不执行日期更改,这是不是BUG呀。

附:示例文件

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb



--  作者:有点蓝
--  发布时间:2022/8/31 17:18:00
--  
记录窗口的到AfterEdit事件处理:http://www.foxtable.com/webhelp/topics/2635.htm