我按钮里有段代码是增加临时列的 增加后 如何消除其中的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
没效果哎
[此贴子已经被作者于2012-6-8 13:28:44编辑过]