[求助]自动输入编号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "报障时间" Then

If e.DataRow.IsNull("报障时间") Then

e.DataRow("故障ID") = Nothing

Else

Dim d As Date = e.DataRow("报障时间")

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1) '获得该月的第一天

Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天

Dim bh As String = Format(d,"yyyyMM") '生成编号的前6位,4位年,2位月.

If e.DataRow("故障ID").StartsWith(bh) = False '如果编号的前6位不符

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(故障ID)","报障时间 >= #" & fd & "# And 报障时间 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(7,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("故障ID") = "MM-" & bh & "-" & Format(idx,"000")

End If

此主题相关图片如下：qq图片20180803145854.png

问题：为什么从第二条开始就一直是相同一个编号了呢？

[此贴子已经被作者于2018/8/3 14:59:26编辑过]

谢谢，可以用了，另外想问：我之前有一批订单是没有编号的，现在有什么办法可以把旧的订单也按这个规则生成？

对数据进行重置后，发现代码还是有点问题，每个月最后一天的编号全是相同的。
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20180806094316.png

超过1000又不正常了，请帮忙把 MM-年月-编号修改为 MM-年月日-编号谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20180806101141.png

[此贴子已经被作者于2018/8/6 10:11:43编辑过]

我现在是新增加到1000以上，不是对旧的进行重置，代码只支持 000 三位，所以超过就不正确了，

麻烦把代码修改一下，请帮忙把 MM-年月-编号修改为 MM-年月日-编号谢谢！

不对

此主题相关图片如下：qq截图20180806103856.png

新增工单直接报错

此主题相关图片如下：qq截图20180806110137.png

idx = CInt(max.Substring(12,3)) + 1 '获得最大编号的后三位顺序号,并加1 修改成这样就可以了，谢谢

主题：[求助]自动输入编号问题