以文本方式查看主题

-  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=143298)

--  作者:15666282205
--  发布时间:2019/11/20 13:32:00
--  0值不显示
老师,表有200列,其中好多是显示的0,如何让所有的0都不显示呢?
--  作者:有点蓝
--  发布时间:2019/11/20 13:41:00
--  
录入的时候就不要录入0值了。如果是导入或者通过代码赋值的,判断一下0值就不要赋值了。

等有值再处理很麻烦的,
方法1、遍历所有单元格把0值改为nothing
2、到drawcell事件,把0值隐藏

--  作者:15666282205
--  发布时间:2019/11/20 14:02:00
--  
老师,是用代码从另一个表复制的数据,判断是0值不赋值不会写代码;drawcell事件不合适,因为一列中有的是0,有的不是0;只有遍历单元格把0改为nothing合适,我查了帮助和论坛,没找到例子。还得请您帮忙。
--  作者:有点蓝
--  发布时间:2019/11/20 14:11:00
--  
For Each dr1 As DataRow In DataTables("表A").datarows
    For Each dc As DataCol In DataTables("表A").DataCols
        If dc.IsNumeric AndAlso dr1(dc.Name) = 0 Then  dr1(dc.Name) = dr1(dc.name)
    Next
Next

或者

    For Each dc As DataCol In DataTables("表A").DataCols
        If dc.IsNumeric  Then
            DataTables("表A").ReplaceFor(dc.Name,Nothing, dc.Name & " = 0")
        End If
    Next

--  作者:15666282205
--  发布时间:2019/11/20 14:34:00
--  
很好,老师,谢谢!