- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]不能标志最后一个记录 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53500)
-- 发布时间：2014/7/9 12:44:00
-- [求助]不能标志最后一个记录
在测试窗口中，“对账”按钮代码如下，但不能实现最后一条记录“已对账”设为“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编辑过]
-- 发布时间：2014/7/9 13:02:00
--
标题改为：不能标志最后一个记录??
-- 发布时间：2014/7/9 14:13:00
--
没看到你的代码，是不是这个意思？
Dim bms As List(Of String) \'领料部门集合
bms = DataTables("领料部门").GetValues("部门名称","[是否对账] = true")
For Each r As DataRow In DataTables("出库").Select(Tables(e.form.name & "_出库主表").Filter)
r("已对账") = bms.Contains(r("领用部门"))
Next