DataTables("表A").ReplaceFor("_Locked", True, "日期 <= #" & Date.Today.AddDays(-2) & "#")
DataTables("表A").ReplaceFor("结单", True, "日期 <= #" & Date.Today.AddDays(-2) & "#")