以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 关于自动生成编号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94867)
--  作者：初学者阿成
--  发布时间：2017/1/4 12:56:00
--  [求助] 关于自动生成编号

Select e.DataCol.Name
    Case "年月"
        \'If e.DataRow.name="年月"   Then
        If e.DataRow.IsNull("年月") Then
            e.DataRow("数据编号") = Nothing
        Else
            Dim lb As String = e.DataRow("年月")
            If e.DataRow("数据编号").StartsWith(lb) = False \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(数据编号)","年月 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1 \'获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("数据编号") = lb & Format(idx,"000")
            End If
        End If
    我在datacolchanged事件中加入上述的程序段，想自动生成数据数据编号，但没有成功。所有的数据行没有编号的时候是成功的，生成了“201611001”，但后面只有生相同的编号“201611162”，没有按原来“201611002”。。。。为什么会这样？
--  作者：初学者阿成
--  发布时间：2017/1/4 14:22:00
--  
补充：
1、上述程序号中的“年月”字段是字符型的，6位。“数据编号“也是字符型的，9位。
2、数据编号=[年月]+三位数字，该三位数字来自于当月统计数，不足位前补“0”。
--  作者：初学者阿成
--  发布时间：2017/1/4 14:34:00
--  
各位，我解决了，将"idx = CInt(max.Substring(2,3)) + 1" 更改为“idx = CInt(max.Substring(6,3)) + 1"