主题：[求助]自動編號出錯

dr1("交接單編號") = dr("生產單號") + "001"

改为：

dr1("交接單編號") = dr("生產單號") &  "001"

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

参考：

http://www.foxtable.com/help/topics/1284.htm