Foxtable(狐表)用户栏目专家坐堂 → 表中增加了多行后保存时获取编号的问题


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

主题:表中增加了多行后保存时获取编号的问题

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
表中增加了多行后保存时获取编号的问题  发帖心情 Post By:2016/1/26 22:30:00 [只看该作者]

在表的beforesavedatarow中用了如下的代码,在表中增加了前辍相同的多行后按项目默认的那个保存按钮保存时,SQL数据库会提示违反唯一约束或索引的错误提示,主要原因就是保存第一行时查询到后台原来的最大值是21,保存后生成新的最大编码22,应该执行到保存第二行时查询到的最大值应该是22,此时第二行再保存就会再生成新的最大值23,如此类推一次保存新增的多行应该不会出错。难道ft的保存机制时新增多行时是一次同时保存的吗?我这种情况同时增加多行时每行保存时都能续用上一行产生的最大编码+1要怎么办?
谢谢!

'直接从产品编码中查找最大号生成编号
dr = e.DataRow
pf = dr("序号") & "-" & dr("唛头") & "-"  '获得编号的前缀
cmd.ConnectionName = Mydata '设置数据源名称
cmd.commandText = "Se lect Max(产品编码) From {产品编码} Where 产品编码 Like '" & pf & "%'"
Dim idx As Integer
If cmd.ExecuteScalar > "" Then '如果存在最大编号
    Dim cd As String = cmd.ExecuteScalar
    Dim sx As Integer = cd.LastIndexOf("-")  '取得最后一个分隔符的位置.
    idx = Cint(cd.SubString(sx+1))  '将编号中的顺序号转换为整数
    idx = idx + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
msgbox(idx)
e.DataRow("产品编码") = pf & Format(idx,"00000")

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/1/26 22:36:00 [只看该作者]

如果每次增加1行就保存一下就不会出错,但先复制新增加几行后再一次保存就会出错

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


加好友 发短信
等级:八尾狐 帖子:1930 积分:17558 威望:0 精华:0 注册:2014/7/29 19:09:00
  发帖心情 Post By:2016/1/26 22:58:00 [只看该作者]

老师帮忙看下

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/27 0:13:00 [只看该作者]

不要重复发帖。

 回到顶部