如何让结账列过五天后，自动调√
工作日志基础数据_DataColChanged
If e.DataCol.Name
= "结账" Then '如果是已结帐列的内容变动
'If e.DataCol.Name
= "日期" Then '如果是已结帐列的内容变动
If e.DataRow("结账") = True AndAlso
e.DataRow.isnull("日期") = False Then '而且变动后的值是True(已勾选)
' If e.DataRow.isnull("日期") = False
Then '而且变动后的值是True(已勾选)
Dim tv As Date = e.DataRow("日期")
Dim tp As TimeSpan = Date.Today - tv
If tp.TotalDays >= 5 Then '如果订单已经超过5天
e.DataRow("结账") = True
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 >= 5 Then '如果订单已经超过5天
e.DataRow("结账") = True
e.DataRow.Locked = True '那么锁定此行
End If
End If
End If
加好友 
发短信
Post By：2020/10/15 14:30:00 [只看该作者]
