以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90154)
--  作者：铜豌豆之首
--  发布时间：2016/9/6 16:59:00
--  [求助]
日期填充
--  作者：狐狸爸爸
--  发布时间：2016/9/6 17:22:00
--  
数据填充：
http://www.foxtable.com/webhelp/scr/0140.htm
--  作者：铜豌豆之首
--  发布时间：2016/9/6 18:06:00
--  
那样填充值填充序列号，和重复日期填充，不能像序列填充那种填充日期
--  作者：有点蓝
--  发布时间：2016/9/6 20:11:00
--  
代码填充

With Tables("表A")
    Dim dr As Row = .Rows(.TopPosition )
    Dim d As Date = dr("日期")
    For i As Integer = .TopPosition+1  To .BottomPosition
        d = d.AddDays(1)
        .Rows(i)("日期") = d
    Next
End With