根据日期生成编号

张兴康 · 发表于 2020-3-14 14:31:36

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:19

老规矩，沙发自己坐

张兴康 · 发表于 2020-3-14 17:43:09

效果图：

张兴康 · 发表于 2020-3-15 10:54:22

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

这个还是挺实用的

		自动登录	找回密码
密码			立即注册

[分享] 根据日期生成编号

点评

点评

浏览过的版块