- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]自動編號出錯 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19565)
-- 发布时间：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
-- 发布时间：2012/5/14 18:19:00
--
这是列类型的问题··· 数字型 = 字符 了
-- 发布时间：2012/5/14 18:26:00
--
dr1("交接單編號") = dr("生產單號") + "001"
改为：
dr1("交接單編號") = dr("生產單號") & "001"
-- 发布时间：2012/5/14 18:55:00
--
不行，改了還是一樣的問題
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2012/5/14 22:01: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
参考：
http://www.foxtable.com/help/topics/1284.htm