主题：[求助]不能标志最后一个记录

在测试窗口中，“对账”按钮代码如下，但不能实现最后一条记录“已对账”设为“Ture”

Dim mcs As List(Of String)   '领料部门集合

mcs = DataTables("领料部门").GetValues("部门名称","[是否对账] = true")  ‘根据领料部门表的“是否对账”，确定是否对出库主表进行标志

For Each mc As String In mcs    '按名称循环

    Tables(e.form.name & "_出库明细表").StopRedraw

    Tables(e.form.name & "_出库明细表").Filter = "领用部门 = '" & mc & "' and 已对账 = false"

    

    If Tables(e.form.name & "_出库明细表").Rows.Count>0  '有明细表记录才进行

        Tables(e.form.name & "_出库主表").Filter = "领用部门 = '" & mc & "' and 已对账 = false"

        'Return

        For Each r As Row In Tables(e.form.name & "_出库主表").Rows

            r("已对账") = True

        Next

        'Return

    End If

    Tables(e.form.name & "_出库明细表").ResumeRedraw

Next