主题：关于自动勾选已结账选项问题

Dim d As Date = vars("d1")

Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"

If DataTables("冲压车间工资表").Find(filter) IsNot Nothing Then

    DataTables("冲压车间工资表").ReplaceFor("_Locked", True, filter)

    DataTables("冲压车间工资表").ReplaceFor("已结帐", True, filter)

    Vars("d2") = d

    vars("d1") = d.AddMonths(1)

End If

Dim d As Date = vars("d2")

Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"

If DataTables("冲压车间工资表").Find(filter) IsNot Nothing Then

    DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)

    DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)

    Vars("d1") = d

    vars("d2") = d.AddMonths(-1)

End If