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

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

这段代码在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

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