- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 计划表时间流水 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113354)
-- 发布时间：2018/1/14 16:03:00
-- 计划表时间流水
请教
此主题相关图片如下：微信截图_20180114160036.png
计划表时间流水
让计划时间等于完成时间的上一行
输入执行天数后重新计算
-- 发布时间：2018/1/14 16:35:00
--
Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "起始日期" OrElse dc.Name = "执行天数" Then
If dr.IsNull("起始日期") OrElse dr.IsNull("执行天数") Then
dr("完成日期") = Nothing
Else
dr("完成日期") = dr("起始日期").AddDays(dr("执行天数"))
End If
End If
If dc.name = "完成日期" Then
Dim drs = e.DataTable.Select("_sortkey >= " & dr("_sortkey"), "_sortkey")
For i As Integer = 1 To drs.count-1
drs(i)("起始日期") = drs(i-1)("完成日期")
Next
End If
-- 发布时间：2018/1/14 18:37:00
--
老师
起始日期不会变化
我是想 我在第一行输入起始日期 输入天数后 就会计算出 完成日期
那么系统就会分析有没有第下一行 如果有 起始日期 就会等于第一行的完成日期 依次往下计算
起始日期 执行 天数 完成日期
三类任何一列有变化 同样 编号 的行 依次再次计算
[此贴子已经被作者于2018/1/14 18:44:17编辑过]
-- 发布时间：2018/1/14 20:18:00
--
2楼代码没问题。请上传实例测试。