 加好友  发短信
等级：一尾狐
帖子：480
积分：3838
威望：0
精华：0
注册：2011/5/31 15:45:00
|
[求助]自動編號出錯  Post By：2012/5/14 17:48:00 [显示全部帖子]
Dim dr As Row = Tables("大貨生產單").Current
MainTable = Tables("大貨生產交接單")
Tables("大貨生產交接單").AddNew()
Dim dr1 As Row = Tables("大貨生產交接單").Current
dr1("生產單號") = dr("生產單號")
Dim dr2 As DataRow = DataTables("大貨生產交接單").Find("生產單號 = " & dr("生產單號") , "交接單編號 DESC")
If dr2 IsNot Nothing Then
Dim ss As String = "000"
Dim s As String = dr2("交接單編號")
dr1("交接單編號") = dr("生產單號") + ss.SubString(0,3 - Len(CStr(CInt(s.SubString(Len(s)-3, 3))+1))) + CStr(CInt(s.SubString(Len(s)-3, 3))+1)
Else
dr1("交接單編號") = dr("生產單號") + "001"
End If
Forms("交接單").Open() 此主题相关图片如下：006.jpg 
|
|
