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

这个是早期做的规则。。。

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

                max = e.DataTable.Compute("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

刚的代码还是不行，部分出子编号出来，部分没有。 我还是看不懂有点甜老师帮我修改的代码的意思。不然我自己也能找出原因来。先让我学习一下。

另外请问有点甜老师那个mysql.dll的再哪下载？如何引用。。看不是很明白。。