主题：自动编号生成

请问如下的自动编号该如何设置代码啊？

GH-0906195
GH-0906196
GH-0906197
GH-0906198
GH-0906199
GH-0906200
GH-0906201
GH-0906202
GH-0906203
GH-0907204
GH-0907205

不是，是每次增加一行，但是自动编号有日期+数字组成

gdtgl的方法,我觉得不错,不知道有没有试过在动态加载的情况下使用是否可以.

在项目的BeforeLoadOuterTable,

If e.DataTableName = "订单" Then
    e.SelectString = "Select * From 订单 Where 编号 < 0"
End If

然后增加时,是否可以呢?

Dim d2 As integer
Dim d3 As string = today.year
dim d4 as integer = today.month
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into 表C (f002) Values('"& d3 &"')"
cmd.ExecuteNonQuery()
cmd.CommandText = "Select count(f001) From 表C where f002 = '"& d3 &"' "
d2 = cmd.ExecuteScalar()
e.datarow("编号") = "GH-" & d3 & format(d4,"00") & format(d2,"000")

上面代码中的"表C"是什么用的？

'''
Dim T1,T2 As String
T1 = "GH-" & Format(Date.today,"yyMM")
T2 = "[合同编号] like '" & T1 & "*'and "
T2 = T2 & "[ID] < " & e.DataRow("ID")
Dim dr As DataRow = e.DataTable.Find(T2,"ID DESC")

e.DataRow("输入日期") = Date.today
If dr is Nothing then
   e.DataRow("合同编号") = T1 & "001"
Else
   Dim n As Integer = Cint(Right(dr("合同编号"),3))+1
   e.DataRow("合同编号") = T1 & Format(n,"000")
End If

我现在使用的是如下代码，但是自动生产的结果如下：
GH-0907001
GH-0907002
GH-0908001
GH-0908002
问题是后段001，002，换月份以后，就不会再继续添加了，能否变成GH-0908003，GH-0908004？