非常感谢“有点甜”,代码是可以用了,但是出现了一个小问题,就是按下按钮后,第二次或者以后,不是从第一行开始了,而是接着上一次的继续向下输入了

 

需要的效果：点击开始统计按钮 自动从第一行开始更新，每次更新按月份从第一行开始重新生成行数。

 

Dim dt1 As Date = e.form.Controls("起始日期输入框名称").Value
Dim dt2 As Date = e.form.Controls("结束日期输入框名称").Value
Dim tp As timespan = dt2 - dt1
For i As Integer = 0 To tp.TotalDays
Dim dr As DataRow = DataTables("统计表").AddNew
dr("日期") = dt1.AddDays(i)
Next