主题：如何让结账列过五天后，自动调√

如何让结账列过五天后，自动调√

工作日志基础数据_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