以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]交叉统计表列值为0  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189370)
--  作者：JoyGum
--  发布时间：2023/11/28 14:26:00
--  [求助]交叉统计表列值为0

Dim g As New CrossTableBuilder("Temp1", DataTables("GWarehouse"))
g.HGroups.AddDef("DealerName")
g.HGroups.AddDef("ProductsName")
g.HGroups.AddDef("WorkNo")
g.VGroups.AddDef("MainName")
g.Totals.AddDef("DebitQuantity", "入库数量")
g.Totals.AddDef("CreditQuantity", "出库数量")
g.Totals.AddDef("BalanceQuantity", "库存数量")
g.VerticalTotal = True
g.Decimals = 2
g.Build()

 

请教老师若是库存数量为0,删除此行(之前都用手动筛选处理),代码怎么处理.
--  作者：有点蓝
--  发布时间：2023/11/28 14:39:00
--  
生成的统计表是怎么样的？截图看看
--  作者：JoyGum
--  发布时间：2023/11/28 14:59:00
--  

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20231128145649.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/11/28 15:10:00
--  
……
g.Build()
for each dc as datacol in datatables("Temp1").datacols
if dc.caption like "*_库存数量" then
datatables("Temp1").deletefor(dc.name & "=0 or " & dc.name & " is null")
exit for
endif
next
--  作者：JoyGum
--  发布时间：2023/11/28 15:17:00
--  
谢谢老师!