Select Case e.DataCol.name
Case "故障表"
If e.DataRow("故障表") IsNot Nothing Then
e.DataRow("故障表小区数") = 1
Else
e.DataRow("故障表小区数") = 0
End If
Case "小区营收账户"
If e.DataRow("小区营收账户") IsNot Nothing Then
e.DataRow("未抄表小区数") = 0
Else
e.DataRow("未抄表小区数") = 1
End If
End Select