[求助]让所有数值列不显示零值的通用代码 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