主题：[求助]这个自动编号代码错在哪里

If e.DataCol.Name =  "ajclqh_tijiaoqh" Then
    If e.DataRow.IsNull("ajclqh_tijiaoqh") = "已提交" Then
        e.DataRow("ajdjh") = Nothing
    Else
        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 = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.
         If e.DataRow("ajdjh").StartsWith(bh) = False '如果编号的前6位不符
             Dim  max As String
            Dim  idx As  Integer
            max = e.DataTable.Compute("Max(ajdjh)","y >= #" & fd & "# And y <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号
             If  max > "" Then '如果存在最大编号
                 idx = CInt(max.Substring(7,3)) + 1  '获得最大编号的后三位顺序号,并加1
             Else
                idx = 1 '否则顺序号等于1
             End  If
            e.DataRow("ajdjh") = bh & "-" & Format(idx,"000")
         End If
    End  If

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

点击浏览该文件:backup.zip

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

点击浏览该文件:交通行政执法管理系统.foxdb

说明：
[ajclqh_tijiaoqh]=[是否提交到后台]

[ajdjh]=[案件登记号]

[案件登记号]中的澄交运稽罚字是案件登记号的前缀

前缀在机构编码维护表的编码前缀列中

我要的目的是：

当[是否提交到后台]=“已提交”时，则[案件登记号]中就按年自动生成编号

跪求大侠们帮我看一下上面的公式哪里不对

谢谢

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

点击浏览该文件:管理项目1.foxdb

表A是主表，表B第二列中的内容是表A第一列自动生成编号的前缀

我的要求是：

当表A第表A第三列等于已提交时，第一列自动生成编号，编号的生成方法是按系统年份自动生成（如：2015年第一天时后五位就从00001开始，到了2016第一天时后五位又从00001开始），[2015]的是系统年份，每年都会自动系统年份。

结果为：前缀+"字"+"["+"系统年份"+"]"+按系统年份自动生成的编号+"号"

谢谢大侠指点一下下，跪求。

这个代码写在DataRowAdding里后不能自动编号了，请大侠指教

If e.DataRow("cljbqh_cphm") > " " Then
    e.DataRow("tzdbh") = Nothing
Else
    Dim y As Integer = Date.Today.Year
    Dim qz As String = Tables("jgbmwh").Rows(0)("bmqzdm")
    Dim bh_temp As String = "G[[]" & y & "[]]" & qz
    Dim bh As String = "G[" & y & "]" & qz
    Dim  max As String
    Dim  idx As  Integer
    max = e.DataTable.Compute("Max(tzdbh)","tzdbh like '" & bh_temp & "%' And [_Identify] <> " & e.DataRow("_Identify"))
    If  max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(bh.Length, 5)) + 1  '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End  If
    e.DataRow("tzdbh") = bh & Format(idx,"00000") & "号"
End  If