- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 日期自动增加 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109659)
-- 发布时间：2017/11/16 12:13:00
-- 日期自动增加
根据开始日期到结束日期的天数自动增加行数，日期也从开始日期自动增加，请老师指教 ，谢谢！
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
[此贴子已经被作者于2017/11/16 12:15:51编辑过]
-- 发布时间：2017/11/16 13:01:00
--
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
-- 发布时间：2017/11/16 13:20:00
--
谢谢老师