- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于OpenQQ实现自动编号的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148056)
-- 发布时间：2020/3/30 12:14:00
-- 关于OpenQQ实现自动编号的问题
出现第二天打开项目新增订单时，同一月份的订单又从0001开始编号的情况（格式是：202003-0001），请问问题出在哪里啊？
OpenQQ服务端设置全局代码：Public ddbhs As new Dictionary (of String ,Integer)[此贴子已经被作者于2020/3/30 12:19:16编辑过]
-- 发布时间：2020/3/30 12:17:00
--
此主题相关图片如下：万能五笔截图_20200330120600.png
-- 发布时间：2020/3/30 12:21:00
-- 回复：（温馨的大树）关于OpenQQ实现自动编号的问题
项目事件AftenOpenProject代码：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档 (2).txt |
-- 发布时间：2020/3/30 13:47:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm
到服务端命令窗口执行调试
Dim dt As DataTable
Dim cmd As new SQLCommand
cmd.ConnectionName = "订单管理系统"
cmd.CommandText = "Select year(订单日期) As 年, month(订单日期) As 月, max(订单编号) As 订单编号 From{订单明细表} group by year(订单日期) , month(订单日期)"
dt = cmd.ExecuteReader
ddbhs.Clear()
For Each dr As DataRow In dt.DataRows
Dim ny As String = dr("年") & Format(dr("月"),00)
Dim bh As String = dr("订单编号")
output.show(ny & "--" & bh)‘看都是什么数据
Dim id As Integer
If bh .length = 11 Then
bh = bh .SubString(7)
If Integer.Tryparse(bh ,id) Then
ddbhs.add(ny ,id)
End If
End If
Next
或者执行下面看看
For Each key As String In ddbhs.keys
Output.Show(key & "=" & ddbhs(key))
Next