蓝老师好！DataColChanged 事件，将字符型[代码]列的数字，逐个相加，得到的和除以8，然后根据余数进行判断。
下面的代码编辑确认后，再重新打开代码编辑器发现刚才保存的代码少了几行。这是什么原因，代码错在哪里？
谢谢！
If e.DataCol.Name = "代码" Then
If e.DataRow.IsNull("代码") = False Then
Dim s As String = e.DataRow("代码")
Dim a As Integer
For i As Integer = 0 To s.Length - 1
a = a + val(s.Chars(i))
If a Mod 8 = 0 Then
e.DataRow("代码类别") = "AA"
ElseIf a Mod 8 = 1 Then
e.DataRow("代码类别") = "BB"
ElseIf a Mod 8 = 2 Then
e.DataRow("代码类别") = "CC"
ElseIf a Mod 8 = 3 Then
e.DataRow("代码类别") = "DD"
ElseIf a Mod 8 = 4 Then
e.DataRow("代码类别") = "EE"
ElseIf a Mod 8 = 5 Then
e.DataRow("代码类别") = "FF"
ElseIf a Mod 8 = 6 Then
e.DataRow("代码类别") = "GG"
ElseIf a Mod 8 = 7 Then
e.DataRow("代码类别") = "HH"
End If
Next
End If
End If
加好友 
发短信
Post By：2021/10/9 22:05:00 [只看该作者]
