Foxtable(狐表)用户栏目专家坐堂 → [原创]分享:快速清除单元格零值


  共有3436人关注过本帖树形打印复制链接

主题:[原创]分享:快速清除单元格零值

帅哥哟,离线,有人找我吗?
一丁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:310 积分:2941 威望:0 精华:0 注册:2017/9/14 8:21:00
[原创]分享:快速清除单元格零值  发帖心情 Post By:2018/3/1 17:03:00 [只看该作者]

FOXTABLE提供一个“快速清零”的功能按钮,能够清除选定区域的单元格内的零值,但是存在一个弊端,如果选定区域内有表达式列,则会报错

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180301165543.png
图片点击可在新窗口打开查看
学习狐表快一个月了,老是一天在向老师们请教,今天也来分享自己写的一段代码,功能是对当前表整个表的零值快速清除,无需选择区域,效率比狐表本身的功能按钮要高出很多
喜欢就顶顶呗


For Each cl As Col In CurrentTable.Cols
    Dim cFname As String = cl.Name
    Dim dc As DataCol  = CurrentTable.DataTable.DataCols(cFname )
    Dim pi As System.Reflection.PropertyInfo = dc.Gettype.getproperty("IsTemporary",Reflection.BindingFlags.nonpublic Or Reflection.BindingFlags.Instance)
    If cl.IsNumeric And pi.getvalue(dc,Nothing) = False Then
        For Each r As Row In CurrentTable.Rows
            If r(cFname) = 0 Then
                r(cFname) = Nothing
            End If
        Next
    End If
Next

[此贴子已经被作者于2018/3/1 17:04:13编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/1 17:54:00 [只看该作者]

嗯嗯,不错。

 回到顶部
帅哥哟,离线,有人找我吗?
shenyl0211
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6835 威望:0 精华:0 注册:2012/4/2 21:49:00
  发帖心情 Post By:2018/3/2 10:06:00 [只看该作者]

顶你

 回到顶部