主题：编码问题

我想实现如下的编号，a编码，b编码，c编码，顺序码

编码是根据a编码+b编码+c编码+顺序码得到的，但顺序码是随a、b、c编码变动自动+1。（顺序码是三位，001开始）如何编写这个顺序码。

eg：a  b  c  顺序码

      1  0  01   001 

      1  0  01   002 

      1  0  02   001 

      2  0  01   001

 顺序码根据a，b，c编码变动自动加1 。

参考

 

http://www.foxtable.com/help/topics/2403.htm

 

datacolchanged事件

 

Select Case e.DataCol.Name
    Case "第一列", "第二列", "第三列"
        Dim  max As String
        Dim  idx As  Integer
        max = e.DataTable.Compute("Max(第五列)"," 第一列 = '" & e.DataRow("第一列") & "' and 第二列 = '" & e.DataRow("第二列") & "' and 第三列 = '" & e.DataRow("第三列") & "' and [_Identify] <> " & e.DataRow("_Identify"))
        If  max > "" Then '如果存在最大编号
            idx = CInt(max.Substring(0,3)) + 1  '获得最大编号的后三位顺序号,并加1
            e.DataRow("第五列") = Format(idx,"000")
           
        Else
            e.DataRow("第五列") = "001"
        End  If
End Select