主题：关于自动增加行

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

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