主题：关于自动增加行

希望根据服务器的日期，每增加一天在日期表中增加一行，请问怎么能实现？

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

 

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

谢谢，已解决