主题：新增行

if e.datacol.name = "计划开始日期" andalso e.datarow.isnull("计划开始日期")=false then

dim d as date = e.datarow("计划开始日期")

dim d2 as date = d.adddays(e.datarow("工期"))

e.datarow("计划完成日期") = d2

for each dr as datarow in e.datatable.select("_sortkey >" & e.datarow("_sortkey"),"_sortkey")

dr("计划开始日期") = d2

d = d2

d2 = d.adddays(dr("工期"))

dr("计划完成日期") = d2

next

end if

代码是人写的，按哪一列排序，自己改改不就行了

此主题相关图片如下：1.png