主题：[求助]清除零值

这个意思？

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "M1","M2","M3","M4","M5","M6","M7","M8","M9","M10","M11","M12"      
        If dr.IsNull("M1") AndAlso dr.IsNull("M2")  AndAlso dr.IsNull("M3")  AndAlso dr.IsNull("M4")  AndAlso dr.IsNull("M5")  AndAlso dr.IsNull("M6")  AndAlso dr.IsNull("M7")  AndAlso dr.IsNull("M8")  AndAlso dr.IsNull("M9")  AndAlso dr.IsNull("M10")  AndAlso dr.IsNull("M11")  AndAlso dr.IsNull("M12") Then
            dr("年度合计") = Nothing
        Else
            dr("年度合计") = dr("M1") + dr("M2") + dr("M3") + dr("M4") + dr("M5") + dr("M6") + dr("M7") + dr("M8") + dr("M9") + dr("M10") + dr("M11") + dr("M12")
           
        End If
End Select