- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 时间计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121916)
-- 发布时间：2018/7/15 19:07: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
此主题相关图片如下：企业微信截图_20180715190542.png
此主题相关图片如下：企业微信截图_20180715190542.png-- 发布时间：2018/7/15 20:13:00
--
Dim drs = e.DataTable.Select("订单编号=\'" & dr("订单编号") & "\' and _sortkey >= " & dr("_sortkey"), "_sortkey")