Foxtable(狐表)用户栏目专家坐堂 → [求助]自動編號出錯


  共有8976人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jaegea
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:3826 威望: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
mr725
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2012/5/14 18:19:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/14 18:26:00 [只看该作者]

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

 

改为:

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
jaegea
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:3826 威望:0 精华:0 注册:2011/5/31 15:45:00
  发帖心情 Post By:2012/5/14 18:55:00 [只看该作者]

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

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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

 


 回到顶部