以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于清零  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168828)
--  作者：hb8888
--  发布时间：2021/5/23 22:42:00
--  关于清零
大师：请问清除汇总模式下所有0，下面的代码，汇总行不清除0，如何清除表中所有0？
For Each tr As Row In tb5.Table.Rows
    For Each cl As Col In tb5.Table.Cols
        If cl.IsNumeric Then                             \'---设置数字列格式
            If val(tr(cl.name)) = 0   Then
                tr(cl.name) = Nothing
            End If
        End If
    Next
Next
--  作者：有点蓝
--  发布时间：2021/5/23 23:10:00
--  
参考：http://www.foxtable.com/webhelp/topics/1594.htm