度量快速开发平台-专业、快速的软件定制快开平台

标题: 根据日期生成编号 [打印本页]

作者: 张兴康 时间: 2020-3-14 14:31
标题: 根据日期生成编号
if isnull(编辑部件.GetFieldValue("编号")) then
dim sqll="select nvl(max(编号)+1,'"+formatdatetime(date(),"yyyyMM")+"001')　from xy_二次开发申请表 where 编号 like '"+formatdatetime(date(),"yyyyMM")+"%'"
dim bh = executescalar(sqll)
编辑部件.SetFieldValue("编号",bh)
end if

作者: 张兴康 时间: 2020-3-14 14:32
老规矩，沙发自己坐

作者: 万望 时间: 2020-3-14 15:41
LZ:nvl()函数不是当一个参数为空时，值返回第二个参数吗？你这样第二个参数能用到吗?

作者: 刘亚东 时间: 2020-3-14 16:10
(づ￣3￣)づ╭❤～亲，还是给张效果图撒，源码太复杂了。

作者: 王爱东 时间: 2020-3-14 17:42
你这个可以修改下，把来龙去脉说清楚。特别是要实现的是什么业务，这样描述后就好多了。光贴个代码对读者阅读理解不够哈。

作者: 张兴康 时间: 2020-3-14 17:43
效果图：

作者: 张军勇 时间: 2020-3-14 17:49
多个人同时处理的时候会冲突。
应当是保存的时候，通过事务来更新编号比较保险。

作者: 王爱东 时间: 2020-3-14 18:29
业务描述。你们还缺少这类的业务文字描述。。。。还有这段代码放什么地方之类的。。来龙去脉可以多说说。

作者: 陈晓龙 时间: 2020-3-14 21:56

张兴康发表于 2015-10-14 17:43
效果图：

这个好

作者: 张兴康 时间: 2020-3-15 10:54

陈晓龙发表于 2015-10-14 21:56
这个好

这个还是挺实用的

作者: 万望 时间: 2020-3-15 11:26
这个好像就是实现了自动编号的效果吧？自定义编号规则。看来LZ的sql都吃趴活了

作者: 陈晓龙 时间: 2020-3-15 20:11

张兴康发表于 2015-10-15 10:54
这个还是挺实用的

这个社会就是要实用！

欢迎光临度量快速开发平台-专业、快速的软件定制快开平台 (http://p.delit.cn/)