主题：自动编号为什么出错呢?

此主题相关图片如下：未标题-2.jpg


调坯单号的代码如下:

'''
Dim T1,T2 As String
T1 = "DP" & 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

为什么会出错啊!其它地方都是可以的.

还是出现同样的错误!

为什么我这里不行呢,真是晕啊!

换个办法,有没有办法产生如下的编号:

合同号                 调坯单号
GH0812266             GH-0812266001
GH0812266             GH-0812266002

GH0812267            GH-0812267001
GH0812267            GH-0812267002
GH0812267            GH-0812267003

......

是的，但是不知道未什么调坯单号列没有自动产生啊！呀