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

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