![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:未标题-2.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2009-2/20092613111878510.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
为什么会出错啊!其它地方都是可以的.