以文本方式查看主题 -  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=28199)

--  作者：夜色如歌 --  发布时间：2013/1/22 13:04:00 --  请问如何批量输入日期？ 比如，我想把2013年1月 到 12月的日期全部输入到表格里，如果一个个点击内置器太费时间了，有简单的方法吗？感谢

--  作者：lin_hailun --  发布时间：2013/1/22 13:30:00 --    方法一，用序列填充。  新增足够多的行，然后填入2013-1-1，2013-1-2，然后选中该列的全部行，点序列填充。 http://www.foxtable.com/help/topics/0140.htm  方法二，用代码 Dim d_start As Date = #1/1/2013# Dim d_end As Date = d_start.AddYears(1) Dim days As Integer = (d_end - d_start).TotalDays - 1 For i As Integer = 0 To days     Dim r As Row = Tables("xxx").AddNew     r("日期") = d_start.AddDays(i) Next