以文本方式查看主题

-  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=126280)
--  作者：l1q2lq
--  发布时间：2018/10/17 21:57:00
--  [求助]关于逐行判断
For Each r1 As Row In Tables("箱入库")
    If r1("已入库") = False
        DataTables("箱入库").DeleteFor("扫描状态 <> \'已处理\'" )
        DataTables("箱入库").deleteFor("箱号 is null")
        Dim b As New GroupTableBuilder("批入库1",DataTables("箱入库"))
        b.Groups.AddDef("零件批次") \'添加客户列用于分组
        b.Groups.AddDef("零件号") \'添加客户列用于分组
        b.Groups.AddDef("零件名称") \'添加客户列用于分组
        b.Totals.AddDef("数量") \'添加数量列用于统计
        b.Build \'生成统计表
        forms("箱转批").open
    Else
   End If
Next

已入库列为逻辑，想要实现：对于未勾选的每一行进行分组统计，
问题：第一行已入库TRUE 第二行已入库false 分组统计时两行全部统计
请问老师们，是哪里的错误
--  作者：有点甜
--  发布时间：2018/10/17 22:03:00
--  

直接写，比如

 

 Dim b As New GroupTableBuilder("批入库1",DataTables("箱入库"))
b.Groups.AddDef("零件批次") \'添加客户列用于分组
b.Groups.AddDef("零件号") \'添加客户列用于分组
b.Groups.AddDef("零件名称") \'添加客户列用于分组
b.Totals.AddDef("数量") \'添加数量列用于统计
b.filter = "已入库 = false"
b.Build \'生成统计表
--  作者：l1q2lq
--  发布时间：2018/10/17 22:09:00
--  
思路局限了，感谢老师