主题：如何对编号规则的进一步修改

回复10楼，不明白你的意思，是不是这样？不行，就上传例子。

Select e.DataCol.Name '自动生成子编码
    Case  "编号"
        If e.DataRow.IsNull("编号") Then
            e.DataRow("子编号") = Nothing
        Else
            Dim bh As  String = e.DataRow("编号")
            If e.DataRow("子编号").StartsWith(bh) = False  '如果子编号前缀不符
                Dim max  As  String
                Dim idx  As  Integer
                Dim count As Integer = e.DataTable.sqlCompute("Count(_Identify)","编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) 
                If count > 0 Then
                   
                    max = e.DataTable.sqlCompute("Max(子编号)","编号 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                    If max > ""  Then  '如果存在最大编号
                        Dim l As Integer = bh.Length
                        idx = CInt(max.Substring(l,3)) + 1  '获得最大编号的后两位顺序号,并加1
                    Else
                        idx = 1  '否则顺序号等于1
                    End  If
                    e.DataRow("子编号") = bh & Format(idx,"000")
                End If
            End  If
        End If

msql.dll

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

点击浏览该文件:mysql.data.rar

这个意思？

Select e.DataCol.Name '自动生成子编码
    Case  "编号"
        If e.DataRow.IsNull("编号") Then
            e.DataRow("子编号") = Nothing
        Else
            Dim bh As  String = e.DataRow("编号")
            If e.DataRow("子编号").StartsWith(bh) = False  '如果子编号前缀不符
                Dim max  As  String
                Dim idx  As  Integer
                Dim count As Integer = e.DataTable.sqlCompute("Count(_Identify)","OrderNumber = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) 
                If count > 0 Then
                   
                    max = e.DataTable.sqlCompute("Max(子编号)","OrderNumber = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                    If max > ""  Then  '如果存在最大编号
                        Dim l As Integer = bh.Length
                        idx = CInt(max.Substring(l,3)) + 1  '获得最大编号的后两位顺序号,并加1
                    Else
                        idx = 1  '否则顺序号等于1
                    End  If
                    e.DataRow("子编号") = bh & Format(idx,"000")
                End If
            End  If
        End If