Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动生成编号


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

主题：自动生成编号
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/22 14:31:00 [显示全部帖子]

加入列

 

【前缀】、【顺序号】、【部门代码】
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/22 14:51:00 [显示全部帖子]

【前缀】-> varchar(50) 类型

【顺序号】-> int 类型

【部门代码】-> varchar(50) 类型
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/22 15:18:00 [显示全部帖子]

以下是引用xlrboy在2019/1/22 15:16:00的发言：
容许为空打上勾就可以了

 

如果有问题，在再继续提问。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/1/23 9:06:00 [显示全部帖子]

 

如果还有问题，贴出对应的代码和错误。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/15 15:13:00 [显示全部帖子]

你已经建了一个存储过程啊，不要重复建立啊。不然，你先移除，再建立

 

DROP PROCEDURE 存储过程名称
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/16 15:31:00 [显示全部帖子]

 

pf = dr("部门代码") & "-" &Format(dr("申请日期"),"yyyyMMdd") '否则获得编号的前缀,两位年,两位月

 

改成

 

pf = Format(dr("申请日期"),"yyyyMMdd")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/16 16:27:00 [显示全部帖子]

红色改成你自己的表的列的名字
 
e.DataRow("某列") = pf & "-" & Format(Key,"0000")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/17 9:37:00 [显示全部帖子]

这样啊

 

pf = Format(dr("申请日期"),"yyyyMMdd") '否则获得编号的前缀,两位年,两位月

Dim cmd As new SQLCommand
cmd.connecttionname = "abc"
cmd.CommandText = "usp_GetCode"
cmd.StoredProcedure = True
cmd.Parameters.Add("@deptCode",pf)
cmd.Parameters.Add("@key",1,True)
cmd.ExecuteNonQuery
Dim key As Integer  = cmd.Parameters("@key") '获取存储过程返回的日期值
e.DataRow("某列") = pf & "-" & Format(Key,"0000")
 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/17 10:43:00 [显示全部帖子]

1、这个没写？ cmd.connecttionname = "abc"

 

2、调用后保什么错？请贴出具体错误。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/17 15:30:00 [显示全部帖子]

1、msgbox(pf) 看弹出什么

 

2、在你sqlserver那里，执行

 

Declare @key INT 
EXEC usp_GetCode_1 '2018-10-10',@PA4  OUTPUT 
Select @key

 

看是否报错，最后得到什么。
 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询