在测试窗口中，“对账”按钮代码如下，但不能实现最后一条记录“已对账”设为“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
[此贴子已经被作者于2014-7-9 14:22:37编辑过]
加好友 
发短信
Post By：2014/7/9 12:44:00 [只看该作者]
