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

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

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.

不知道错在那里，请高手再给看看。谢谢！

       非常好用，也非常实用。谢谢了！！

     以下应该是正确的吧？关键是代码的存放位置应放在DataColChanging事件中

if dr(dc.Name)= 0  then
  dr(dc.Name)= Nothing 
end if

    另外，e.NewValue  这个代码好象以前未出现过，是个暂新的代码。