根据日期生成编号

张兴康

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

张兴康

老规矩，沙发自己坐

万望

LZ:nvl()函数不是当一个参数为空时，值返回第二个参数吗？你这样第二个参数能用到吗?

刘亚东

(づ￣3￣)づ╭❤～亲，还是给张效果图撒，源码太复杂了。

王爱东

你这个可以修改下，把来龙去脉说清楚。特别是要实现的是什么业务，这样描述后就好多了。光贴个代码对读者阅读理解不够哈。

张兴康

效果图：

张军勇

多个人同时处理的时候会冲突。
应当是保存的时候，通过事务来更新编号比较保险。

王爱东

业务描述。你们还缺少这类的业务文字描述。。。。还有这段代码放什么地方之类的。。来龙去脉可以多说说。

陈晓龙

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

这个好

张兴康

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

这个还是挺实用的