主题：[求助]求老师帮忙看看为什么这个自动编号的代码不能自己累加

改成这样

Select e.DataCol.Name
    Case "课程学期","课程名称","课程时间"
        If e.DataRow.IsNull("课程学期") OrElse e.DataRow.IsNull("课程名称") OrElse e.DataRow.IsNull("课程时间") Then
            e.DataRow("课程编号") = Nothing
        Else
            Dim sj As DataRow = DataTables("基本设置").find("课程时间 = '" & e.DataRow("课程时间") & "'")
            Dim mc As DataRow = DataTables("基本设置").find("课程名称 = '" & e.DataRow("课程名称") & "'")
            Dim xq As DataRow = DataTables("基本设置").find("课程学期 = '" & e.DataRow("课程学期") & "'")
            Dim bh As String = xq("学期编号") & "-" & sj("时间编号") & "-" & mc("课程名称编号") & "-" '生成编号的前缀
            If e.DataRow("课程编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "课程编号 like '" & bh & "%' and [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(课程编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.length,2)) + 1 '获得最大单据编号的后二位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("课程编号") = bh & Format(idx,"00")
            End If
        End If
End Select