老师，模仿帮助文件做了一下可生成1-1-1的

自动编号代码

编码规则1-1代表试验项目号，最后一位是同一个试验项目在相同试验地区的流水号，从1开始编起

同一个实验项目在不同地区试验，流水号从头开始编

如下图

此主题相关图片如下：图片1.png

 

 如何在下面的代码中，加入改变试验地区后，流水号又从头开始编 语句

Select e.DataCol.Name
    Case "试验项目号"
        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(lb.Length+1)) + 1 \'获得最大分类号的后三位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("分类号") = lb & "-"& idx
            End If
        End If
End Select

老大，结果不对啊

把实例发给您。蓝老师你帮我看看，第四列是正确的结果

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目33.table