以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  增加行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95330)

--  作者：wangjuan --  发布时间：2017/1/16 21:36:00 --  增加行 如何自动每天增加特定行数，例如，本身表中有6行数据，但是每天自动增加6行数据，且这几行数据和上面的都一样。唯一的是日期列不一样。怎么弄啊

--  作者：有点蓝 --  发布时间：2017/1/16 22:16:00 --   类似 If DataTables("表A").Find("日期=#" & Date.Today & "#") Is Nothing Then     Dim t As Table = Tables("表A")     Dim idx = t.Rows.Count - 6     For i As Integer = idx To idx+5         Dim r As Row = t.Rows(i).Clone         r("日期") = Date.Today     Next End If