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

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

这是列类型的问题··· 数字型 = 字符    了

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

 

改为：

 

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

不行，改了還是一樣的問題

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

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