| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 自动编号代码出错，求优化 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139170) |
| -- 作者：304376480 -- 发布时间：2019/8/7 11:41:00 -- 自动编号代码出错，求优化 老师，您好！下面这段根据单列内容生成自动编号的代码，代码规格 XT20190806-001， 问题找到了，能不能帮我改一下直接从后台数据库获得编号？感谢! Dim d As Date = Date.Today Dim bh As String = "XT" & Format(d,"yyyyMMdd") & "-" \'生成编号的前缀 Dim max As String Dim idx As Integer Dim flt As String Dim txt As String = bh & "%\'" flt = "单据编号 Like \'" & txt & "" max = DataTables("销售明细").Compute("Max(单据编号)",flt) \'取得该月的相同工程代码的最大单据编号 If max > "" Then \'如果存在最大单据编号 idx = CInt(max.Substring(11,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.Form.Controls("textbox1").value = bh & Format(idx,"000") [此贴子已经被作者于2019/8/7 11:57:53编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/8/7 12:00:00 -- flt = "单据编号 Like \'" & txt & "" msgbox(flt) ’弹出什么内容 max = DataTables("销售明细").Compute("Max(单据编号)",flt) \'取得该月的相同工程代码的最大单据编号 msgbox(max) |
| -- 作者：304376480 -- 发布时间：2019/8/7 16:11:00 -- 这段代码好像没问题，是因为有些Datatable在加载时，有些表设置了只加载十行数据，所以出现错误！ 如果改成直接从后数据表中计算编号就可以了！
|
| -- 作者：2900819580 -- 发布时间：2019/8/7 16:40:00 -- max = DataTables("销售明细").SQLCompute("Max(单据编号)",flt) \'取得该月的相同工程代码的最大单据编号
|
| -- 作者：304376480 -- 发布时间：2019/8/7 16:50:00 -- 好的，谢谢四楼了，应该就是这个了 |