主题：日期自动增加

根据开始日期到结束日期的天数自动增加行数，日期也从开始日期自动增加，请老师指教 ，谢谢！

Dim Days As Integer
Days = (e.Form.Controls("结束日期").Value - e.Form.Controls("开始日期").Value).TotalDays
Dim idx As Integer = DataTables("假期安排").DataRows.Count
DataTables("假期安排").AddNew(Days)
Dim dr As DataRow

For i As Integer = idx To DataTables("假期安排").DataRows.Count - 1
    dr = DataTables("假期安排").DataRows(i)
    dr("安排项目") = e.Form.Controls("安排项目").text
    dr("日期")  = format("#" & e.Form.Controls("开始日期").Value &" # +i")
Next

此主题相关图片如下：qq截图20171116120944.png

Dim Days As Integer
Days = (e.Form.Controls("结束日期").Value - e.Form.Controls("开始日期").Value).TotalDays
For i As Integer = 1 To days
    Dim dr = DataTables("假期安排").AddNew
    dr("安排项目") = e.Form.Controls("安排项目").text
    dr("日期")  = e.Form.Controls("开始日期").Value.AddDays(i-1)
Next

谢谢老师