以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]今日时间的自动变更?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74044)

--  作者:JK362223
--  发布时间:2015/9/1 9:26:00
--  [求助]今日时间的自动变更?
有一表“自负标准”,其中一列为“今日时间”,代码设置为
For Each dr As DataRow In DataTables("自负标准").DataRows
    dr("今日时间") = Date.today()
Next

现在出现的问题是打开项目后,今日时间不会自动改变

--  作者:大红袍
--  发布时间:2015/9/1 10:08:00
--  

代码写到afterOpenproject事件,不可能无效


--  作者:JK362223
--  发布时间:2015/9/1 10:28:00
--  
因着该表设置为初始不加载,故登陆时会出现不存在该表的报错提示,但代码写在这事件中时今日时间也未出现变更。以前都没有出现过这种情况,就近日
--  作者:foxor
--  发布时间:2015/9/1 11:42:00
--  
Datarowadded事件中设置更方便:e.datarow("今日时间") = Date.today()
--  作者:大红袍
--  发布时间:2015/9/1 11:46:00
--  

1、有必要填入今日的数据吗?

 

2、你把代码写到你加载此表的代码后面。


--  作者:JK362223
--  发布时间:2015/9/4 8:23:00
--  
如表“自负标准”中标01应交款的数据需要每日更新,计算的数据牵涉到每日的日期。例子如下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4_201509040815.zip
 还请老师帮忙修改下代码,谢谢!

--  作者:大红袍
--  发布时间:2015/9/4 9:17:00
--  

For Each dr As DataRow In DataTables("自负标准").SQLSelect("")
    dr("今日时间") = Date.today()
Next
DataTables("自负标准").Save


--  作者:JK362223
--  发布时间:2015/9/4 10:19:00
--  
大红袍老师,还是不行呀/(ㄒoㄒ)/~~
--  作者:大红袍
--  发布时间:2015/9/4 10:21:00
--  

测试,没问题。


--  作者:JK362223
--  发布时间:2015/9/4 10:32:00
--  

自负标准表DataRowAdded事件代码设置为:

For Each dr As DataRow In DataTables("自负标准").SQLSelect("")

    dr("今日时间") = Date.today()

Next

DataTables("自负标准").Save


我重新登陆后,先前已记录的数据行中今日时间依然没有变更,还是停留在2015-7-23,然新增行中今日时间就是正确的