以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于自动增加行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95681)
--  作者：水青树叶
--  发布时间：2017/1/30 15:25:00
--  关于自动增加行
希望根据服务器的日期，每增加一天在日期表中增加一行，请问怎么能实现？
--  作者：有点色
--  发布时间：2017/2/2 10:29:00
--  

 这样做没意义吧？打开项目的时候，自动添加

 

Dim max As Date = DataTables("表A").compute("min(日期)","日期 is not null")
max = max.AddDays(1)
Do While max <= Date.Today
    Dim ndr As DataRow = DataTables("表a").addnew
    ndr("日期") = max
    max = max.AddDays(1)
loop
--  作者：水青树叶
--  发布时间：2017/2/9 8:34:00
--  
谢谢，已解决