主题：后台连续编号

If e.DataCol.Name = "时间" Then '如果更改的是身份证号码列
    If e.DataRow.IsNull("时间") Then '身份证号码是否为空
        e.DataRow("编号") = Nothing '如果为空,则清除出生日期
    Else
        Dim cmd As New SQLCommand
        Dim dt As DataTable
        cmd.C
        cmd.CommandText = "SELECT Max(编号) From {编号1} Where 时间 =#" & e.DataRow("时间") & "#"
        dt = cmd.ExecuteReader()
        If dt.Datarows.Count> 0 Then
            e.DataRow("编号") = Format(e.DataRow("时间"),"yyMMdd") & Format(e.DataTable.Compute("Count(时间)","时间= #" & e.DataRow("时间") & "# ") & "'"),"000")
        End If
    End If
End If

  后台已经有1 2 3三个连续编号,同一天,然后打开系统再次编号,编号还是从1开始,这个代码错在哪儿?