Foxtable(狐表)用户栏目专家坐堂 → [求助]让所有数值列不显示零值的通用代码


  共有21450人关注过本帖平板打印复制链接

主题:[求助]让所有数值列不显示零值的通用代码

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


加好友 发短信
等级:一尾狐 帖子:431 积分:2808 威望:0 精华:0 注册:2008/9/1 8:46:00
[求助]让所有数值列不显示零值的通用代码  发帖心情 Post By:2008/12/9 16:18:00 [只看该作者]

    由于表中的数据列太多,我设计了一个通用的让所有数值列不显示零值的代码。代码如下:

Dim dr As dataRow = e.dataRow
For Each dc As Col In Tables("汇总表").Cols
    If dc.IsNumeric Then   '是否数据列
If dr.IsNull(dc.Name) then   '是否为零
   dr(dc.Name)= Nothing     '清零
end if
    End If
Next

   我将上述代码放在DataColChanged事件中,点击确认后,没有错误显示。可是当数据更新后,表中仍然存在0.00.

不知道错在那里,请高手再给看看。谢谢!

 回到顶部