主题：问问大家自动怎么添加时间

 上面不是帮你写好了么？你怎么还一点进步还没有？

 楼上有转换日期为星期几的帮助文档

 是，有什么问题？

看14楼。

 什么不行啊，你到底有没有进步？就一句代码的事。

Dim d As Date = Date.Today

msgbox(DatePart("ww" , d))
msgbox(WeekDayName(weekday(d)))

 你想说什么？

Dim d As Date = Tables("日计划").Rows(Tables("日计划").Rows.count-1)("日期")
For i As Integer = 1 To 10
    Dim r As Row = Tables("日计划").AddNew
    r("日期")=d.AddDays(i)
Next

Dim d As Date = Tables("日计划").Compute("max(日期)")
For i As Integer = 1 To 10
    Dim r As Row = Tables("日计划").AddNew
    r("日期")=d.AddDays(i)
Next