- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教每隔24小时在日期列增加一行并显示为当天 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39341)
-- 发布时间：2013/8/22 9:19:00
-- 请教每隔24小时在日期列增加一行并显示为当天
请教每隔24小时在日期列增加一行并添加日期为当天,代码如下:
Static dt As Date
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 24 Then
dt = Date.Now
Dim dr As DataRow = DataTables("表A").Find("日期=#" & dt & "#")
If dr Is Nothing Then
dr=DataTables("表A").AddNew
dr("日期")= dt
DataTables("表A").Save()
End If
End If
请大师对代码指教.
-- 发布时间：2013/8/22 9:21:00
--
你这代码怎么莫名其妙的, DT是空的 现在减去DT有什么意义?
你应该在AlterOpenPROJECT 或者 任务计划管理器中 处理才对吧?
-- 发布时间：2013/8/22 10:36:00
--
此主题相关图片如下：qq图片20130822103122.jpg
目标是想实现每隔24小时在表A的日期列自动增加一行并添加日期为当天,如:今天24时添加为2013-08-22,明天24时添加为2013-08-23,以实现表内数据的及时更新,想使用计划管理器,代码不对请指教.
-- 发布时间：2013/8/22 10:47:00
--
帮助的例子就是在计划管理器里面的啊.