以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]余数判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172382)
--  作者：天一生水
--  发布时间：2021/10/9 22:05:00
--  [求助]余数判断
蓝老师好！

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
--  作者：有点蓝
--  发布时间：2021/10/10 20:12:00
--  
1、明天联系客服核对一下激活码
2、检查foxtable快捷方式的属性，兼容性里不要勾选“以兼容模式运行这个程序”
--  作者：天一生水
--  发布时间：2021/10/11 22:41:00
--  
谢谢！
是升级2021-5-29版本后，机器码发生变化，重新激活新的注册码就好了。