我按钮里有段代码是增加临时列的 增加后 如何消除其中的0值？？

DataTables("考勤管理_考勤管理Table1").StopRedraw
DataTables("考勤管理_考勤管理Table1").DataCols.Add("出勤", Gettype(String), "IIF([一]= \'√\',1,0) + IIF([二]= \'√\',1,0) + IIF([三]= \'√\',1,0) + IIF([四]= \'√\',1,0) + IIF([五]= \'√\',1,0) + IIF([六]= \'√\',1,0) +IIF([七]= \'√\',1,0) + IIF([八]= \'√\',1,0) + IIF([九]= \'√\',1,0) + IIF([十]= \'√\',1,0) + IIF([十一]= \'√\',1,0) + IIF([十二]= \'√\',1,0) + IIF([十三]= \'√\',1,0) + IIF([十四]= \'√\',1,0) + IIF([十五]= \'√\',1,0) + IIF([十六]= \'√\',1,0) + IIF([十七]= \'√\',1,0) + IIF([十八]= \'√\',1,0) + IIF([十九]= \'√\',1,0) + IIF([二十]= \'√\',1,0) + IIF([二十一]= \'√\',1,0) + IIF([二十二]= \'√\',1,0) + IIF([二十三]= \'√\',1,0) + IIF([二十四]= \'√\',1,0) + IIF([二十五]= \'√\',1,0) + IIF([二十六]= \'√\',1,0) + IIF([二十七]= \'√\',1,0) + IIF([二十八]= \'√\',1,0) + IIF([二十九]= \'√\',1,0) + IIF([三十]= \'√\',1,0) + IIF([三十一]= \'√\',1,0)")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("早退", Gettype(String), "IIF([一]= \'早\',1,0) + IIF([二]= \'早\',1,0) + IIF([三]= \'早\',1,0) + IIF([四]= \'早\',1,0) + IIF([五]= \'早\',1,0) + IIF([六]= \'早\',1,0) +IIF([七]= \'早\',1,0) + IIF([八]= \'早\',1,0) + IIF([九]= \'早\',1,0) + IIF([十]= \'早\',1,0) + IIF([十一]= \'早\',1,0) + IIF([十二]= \'早\',1,0) + IIF([十三]= \'早\',1,0) + IIF([十四]= \'早\',1,0) + IIF([十五]= \'早\',1,0) + IIF([十六]= \'早\',1,0) + IIF([十七]= \'早\',1,0) + IIF([十八]= \'早\',1,0) + IIF([十九]= \'早\',1,0) + IIF([二十]= \'早\',1,0) + IIF([二十一]= \'早\',1,0) + IIF([二十二]= \'早\',1,0) + IIF([二十三]= \'早\',1,0) + IIF([二十四]= \'早\',1,0) + IIF([二十五]= \'早\',1,0) + IIF([二十六]= \'早\',1,0) + IIF([二十七]= \'早\',1,0) + IIF([二十八]= \'早\',1,0) + IIF([二十九]= \'早\',1,0) + IIF([三十]= \'早\',1,0) + IIF([三十一]= \'早\',1,0)")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("迟到_总计", Gettype(String),"")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("迟到_5以内", Gettype(String),"")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("迟到_5-15", Gettype(String),"")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("迟到_15-30", Gettype(String),"")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("迟到_30以上", Gettype(String),"")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("事假_次数", Gettype(String),"IIF([一]= \'事\',1,0) + IIF([二]= \'事\',1,0) + IIF([三]= \'事\',1,0) + IIF([四]= \'事\',1,0) + IIF([五]= \'事\',1,0) + IIF([六]= \'事\',1,0) +IIF([七]= \'事\',1,0) + IIF([八]= \'事\',1,0) + IIF([九]= \'事\',1,0) + IIF([十]= \'事\',1,0) + IIF([十一]= \'事\',1,0) + IIF([十二]= \'事\',1,0) + IIF([十三]= \'事\',1,0) + IIF([十四]= \'事\',1,0) + IIF([十五]= \'事\',1,0) + IIF([十六]= \'事\',1,0) + IIF([十七]= \'事\',1,0) + IIF([十八]= \'事\',1,0) + IIF([十九]= \'事\',1,0) + IIF([二十]= \'事\',1,0) + IIF([二十一]= \'事\',1,0) + IIF([二十二]= \'事\',1,0) + IIF([二十三]= \'事\',1,0) + IIF([二十四]= \'事\',1,0) + IIF([二十五]= \'事\',1,0) + IIF([二十六]= \'事\',1,0) + IIF([二十七]= \'事\',1,0) + IIF([二十八]= \'事\',1,0) + IIF([二十九]= \'事\',1,0) + IIF([三十]= \'事\',1,0) + IIF([三十一]= \'事\',1,0)")
DataTables("考勤管理_考勤管理Table1").DataCols.Add("事假_相关备注", Gettype(String),"")

我在datacolchanging里 设置

If e.DataCol.IsNumeric Then
    If e.NewValue = 0 Then
        e.NewValue = Nothing
    End if
End If

没效果哎

在DrawCell事件设置代码，如果是0, 就不显示。