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

    我想按结账按钮后，冲压车间工资表已结账列自动勾选符合结账条件行。

结账按钮里已编好了条件了，只需要符合条件就自动勾选已结账列，我找过相关视频和操作说明，找不到，如果你找到可把连接给我，我想想。

对，是这种效果了，原来还用上面的ReplaceFor，另外反结账我用下面的代码，却没反应。

Dim d As Date = vars("d2")
Dim filter = "日期 >= #" & d.AddMonths(-1) & "# And 日期 < #" & d & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
DataTables("冲压车间工资表").ReplaceFor("已结帐", False, filter)
vars("d2") = d.AddMonths(-1)

反结账不对，应从最后的月向上反结，即先反4月，然后3月、2月、1月，结账才按1月、2月、3月、4月顺序。

反结账按钮只反了1、2月份，3月没反应了，按钮有问题，我关闭重新打开，又能正常结账、反结账了，但再操作一次结账、反结账，没反应了！

重复操作一下，再结账，1月份无法结账。

不想指定起始时间，用通用方式取初始时间行不？还有指定时间，夸年后还能结账不？

这代码造成结账和反结账的顺序都相反了，结账按1、2、3、4顺序结，反结账按4、3、2、1反，Hyphen的代码结账顺序对了，只是不能结第一个月的。

我改成这样没问题了。

Dim d As Date = vars("d1")
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 = vars("d1")
Dim filter = "日期 >= #" & d & "# And 日期 < #" & d.AddMonths(1) & "#"
DataTables("冲压车间工资表").ReplaceFor("_Locked", False, filter)
DataTables("冲压车间工资表").ReplaceFor("已结账", False, filter)
vars("d1") = d.AddMonths(-1)

   怎么1-4月，6月的都结账了，唯5月份结不了，反结账也没反应！

   另我把单价表中的DataColchanged代码改为：

Select Case e.DataCol.name
    Case "单价"
        For Each dr As DataRow In DataTables("冲压车间工资表").Select("产品名称 = '" & e.DataRow("产品名称") & "' and 生产工序 = '" & e.DataRow("工序") & "' and(已结账 = false or 已结账 = null) ")
            dr("单价") = e.NewValue
        Next
End Select

　　对吗？目的限制当单价有变，已结账的单价不能变。

此主题相关图片如下：1.png


此主题相关图片如下：2.png