以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不显示零值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112724)
--  作者：飞过海洋
--  发布时间：2018/1/1 22:46:00
--  不显示零值

老师：

    我作的表中，想整个表的所有列，不显示零值。要怎么写代码或设置啊？
--  作者：有点甜
--  发布时间：2018/1/1 23:09:00
--  

执行代码

 

Dim t As Table = Tables("表A")
For Each r As Row In t.rows
    For Each c As Col In t.cols
        If cstr(r(c)) = "0" Then
            r(c) = Nothing
        End If
    Next
Next