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

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

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、2、3、4顺序结，反结账按4、3、2、1反，Hyphen的代码结账顺序对了，只是不能结第一个月的。

取决于给vars("d1")开始赋值是什么啊。

我改成这样没问题了。

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

我刚试了一下，修改单价表的单价，冲压车间工资表中已经账的单价依然跟着更新。

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

　　谢谢，原来写错了 已结账 is null，另结账、反结账非常混乱，一时一个样，刚我结喷涂车间的账，又出现从后面向上结起，反结后6月的又不能结，5月的结了，这样不行的，还有没有其它方法解决？

增加一个表来记录各个月份结账状态。