求救：表达式计算列计数的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

[此贴子已经被作者于2011-12-1 0:20:52编辑过]

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