主题：求救：表达式计算列计数的问题

我有一个表A，有多列是一个产品的号码，有一个合计列，自动计算当这些号码列增加或减少时的个数，表达式怎么写？

将这列设为表达工列，表达式为：

 

iif([空轴_号码_A] Is Null,0,1)+
iif([空轴_号码_B] Is Null,0,1)+
iif([空轴_号码_C] Is Null,0,1)+
iif([空轴_号码_D] Is Null,0,1)+
iif([空轴_号码_E] Is Null,0,1)+
iif([空轴_号码_F] Is Null,0,1)+
iif([空轴_号码_G] Is Null,0,1)+
iif([空轴_号码_H] Is Null,0,1)

 

如此照样将其它列加进去就是了

这段代码在datacolchanging中执行后提示框关不了

If e.DataCol.Name = "经轴号" Then
    Dim dr As DataRow
    Dim Multi As String = "空轴_号码_A|空轴_号码_B|空轴_号码_C|空轴_号码_D|空轴_号码_E|空轴_号码_F|空轴_号码_G|空轴_号码_H|空轴_号码_I|空轴_号码_J|空轴_号码_1|空轴_号码_2|空轴_号码_K|空轴_号码_L|空轴_号码_M|空轴_号码_N|空轴_号码_O|空轴_号码_3|空轴_号码_5|空轴_号码_4"
    Dim Values() As String
    Values = Multi.split("|")
    For Index As Integer = 0 To Values.Length - 1
        dr = DataTables("表A").Find(Values(Index) & " = '" & e.NewValue & "'")
        If dr Is Nothing Then
                MessageBox.Show("您输入的轴号不存在!")
        e.Cancel = True
       End If
    Next
End If

If e.DataCol.Name = "经轴号" Then
    If e.DataRow.IsNull("经轴号") = False Then
        Dim n As Integer
        Dim dr As DataRow
        Dim Multi As String = "空轴_号码_A|空轴_号码_B|空轴_号码_C|空轴_号码_D|空轴_号码_E|空轴_号码_F|空轴_号码_G|空轴_号码_H|空轴_号码_I|空轴_号码_J|空轴_号码_1|空轴_号码_2|空轴_号码_K|空轴_号码_L|空轴_号码_M|空轴_号码_N|空轴_号码_O|空轴_号码_3|空轴_号码_5|空轴_号码_4"
        Dim Values() As String
        Values = Multi.split("|")
        For Index As Integer = 0 To Values.Length - 1
            dr = DataTables("表A").Find(Values(Index) & " = '" & e.NewValue & "'")
            If dr IsNot Nothing Then
                dr(Values(Index)) = Nothing
            Else
                n = n + 1
            End If
        Next
        If n > Values.Length -1 Then
            MessageBox.Show("您输入的轴号不存在!")
            e.DataRow("经轴号") = Nothing
        End If
    End If
End If

在datacolchanged中执行提示错误n=n+1

我测试没有问题