以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  时间推演计算 求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170411)

--  作者：yifan3429 --  发布时间：2021/7/25 18:42:00 --  时间推演计算 求助 Select Case e.DataCol.Name     Case "起始日期","执行天数"         Dim dr As DataRow = e.DataRow         If dr.IsNull("起始日期") OrElse dr.IsNull("执行天数") Then             dr("完成日期") = Nothing         Else                          dr("完成日期") = dr("起始日期").AddDays(dr("执行天数"))                          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 End Select 上面的代码是整个表的计算，我想关联到编号 系统根据每个编号重新计算

--  作者：有点蓝 --  发布时间：2021/7/25 21:19:00 --   Dim drs = e.DataTable.Select("编号=\'" & dr("编号") & "\' and _sortkey >= " & dr("_sortkey"), "_sortkey")