Dim d As Date = Tables("冲压车间工资表").Rows(0)("日期")
d = new Date(d.Year, d.Month, 1)
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", True, filter)
DataTables("冲压车间工资表").ReplaceFor("已结账", True, filter)
vars("d1") = d.AddMonths(1)
---------------------
Dim d As Date = Tables("冲压车间工资表").Rows(0)("日期")
d = new Date(d.Year, d.Month, 1)
Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
DataTables("冲压车间工资表").ReplaceFor("已结账", False, filter)
vars("d1") = d.AddMonths(-1)