主题：自动编号问题

老师，我在DataRowAdding事件中写入自动编码代码，运行错误，不能实现按照月份编号，是否自动编号代码不能写在新增行的事件中

谢谢老师

老师，您再帮我看看，下边这段代码怎么改，代码格式应该为：“2位字母-yyyymm-4位顺序号”，受累老师，我试了几次都不行

Dim d As Date = Date.today

        Dim y As Integer = d.Year

        Dim m As Integer = d.Month

        Dim Days As Integer = Date.DaysInMonth(y,m)

        Dim fd As Date = New Date(y,m,1) '获得该月的第一天

        Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

        Dim bh As String = e.DataRow("线索来源") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀

        If e.DataRow("关联索引二列").StartsWith(bh) = False '如果编号的前10位不符

            Dim max As String

            Dim idx As Integer

            Dim flt As String

            flt = "线索来源 = '"& e.DataRow("线索来源") & "' And #" & d & "#  >= #" & fd & "# And #" & d & "#  <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

            max = e.DataTable.Compute("Max(关联索引二列)",flt) '取得该月的相同类别代码的最大单据编号

            If max > "" Then '如果存在最大编号

                idx = CInt(max.Substring(10,4)) + 1 '获得最大编号的后三位顺序号,并加1

            Else

                idx = 1 '否则顺序号等于1

            End If

            e.DataRow("关联索引二列") = bh & Format(idx,"0000")

        End If

谢谢老师

谢谢老师

xiexielaoshi