datacolchanged
If e.DataCol.Name = "结账" Then '如果是已结帐列的内容变动
If e.DataRow("结账") = True AndAlso e.DataRow.isnull("日期") = False Then '而且变动后的值是True(已勾选)
Dim tv As Date = e.DataRow("日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 10 Then '如果订单已经超过10天
e.DataRow.Locked = True '那么锁定此行
End If
End If
ElseIf e.DataCol.Name = "日期" Then
If e.DataRow.isnull("日期") = False Then '而且变动后的值是True(已勾选)
Dim tv As Date = e.DataRow("日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 10 Then '如果订单已经超过10天
e.DataRow("结账") = True
e.DataRow.Locked = True '那么锁定此行
End If
End If
End If
LoadUserSetting
……
DataTables("工作日志基础数据").Load()
DataTables("工作日志基础数据").DataCols("日期").RaiseDataColChanged
DataTables("工作日志基础数据").save
加好友 
发短信
Post By：2020/9/7 15:29:00 [只看该作者]
