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

老师，我根据帮助的编号方法写了以下代码，但是出现了错误，麻烦老师帮看看，谢谢！

我想根据“第1序_配膳日” 和“价值级”列来生成“指令单”

指令单的样式比如：20161218-1-003

20161218是第1序_配膳日的日期

1 是价值级

003 是2016年12月的第3个

代码是

If e.DataCol.Name = "第1序_配膳日,"价值级" Then

If e.DataRow.IsNull("第1序_配膳日") orelse e.DataRow.IsNull("价值级")Then

e.DataRow("指令单") = Nothing

Else

Dim d As Date = e.DataRow("第1序_配膳日")

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("指令单").StartsWith(bh) = False '如果编号的前6位不符

Dim max As String

Dim idx As Integer

Dim jz As String = e.DataRow("价值级")

max = e.DataTable.Compute("Max(指令单)","第1序_配膳日 >= #" & fd & "# And 第1序_配膳日 <= #" & 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("指令单") = bh & "-" & jz & Format(idx,"000")

End If

出现的错误：

此主题相关图片如下：编码错1.png

改成 If e.DataCol.Name = "第1序_配膳日","价值级" Then

也不对呀

If e.DataCol.Name = "第1序_配膳日" orelse e.DataCol.Name = "价值级" Then

改成以上后，这个错误消除了，

但又出现了新错误：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：表，加工排产，DataColChanged

详细错误信息：

调用的目标发生了异常。

从字符串“1-0”到类型“Integer”的转换无效。

输入字符串的格式不正确。

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

改成

idx = CInt(max.Substring((bh & "-" & jz).length)) + 1 '获得最大编号的后三位顺序号,并加1

老师，按照以下代码，“指令单”列出来了，但结果不太对，

此主题相关图片如下：指令单1.png

如前三行中，

第1序_配膳日指令单

2016-12-17 应为 2016-1-003（003应为本月中的顺序号，按照日期排序的）

2016-12-06 应为2016-1-001

2016-12-16

代码是：

If e.DataCol.Name = "第1序_配膳日" OrElse e.DataCol.Name = "价值级" Then

If e.DataRow.IsNull("第1序_配膳日") OrElse e.DataRow.IsNull("价值级") Then

e.DataRow("指令单") = Nothing

Else

Dim d As Date = e.DataRow("第1序_配膳日")

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("指令单").StartsWith(bh) = False '如果编号的前6位不符

Dim max As String

Dim idx As Integer

Dim jz As String = e.DataRow("价值级")

max = e.DataTable.Compute("Max(指令单)","第1序_配膳日 >= #" & fd & "# And 第1序_配膳日 <= #" & ld & "# And

[_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

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

idx = CInt(max.Substring((bh & "-" & jz & "-").length)) + 1'获得最大编号的后三位顺序号,并加1

Else

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

End If

e.DataRow("指令单") = bh & "-" & jz & "-" & Format(idx,"000")

End If

删除所有编号，重新生成。

老师，您好！

我感觉按月生成编号是按照同月中记录出现的先后顺序（[_Identify]）来编号的，

我想要的效果是，不是按照出现的先后顺序，而是日期的先后顺序，如同为2016年12月，

按1日到31日的顺序，先早出现就先顺着编号。同一日期的，再按照记录的顺序（[_Identify]）来编号

2016-12-13 为201612-1-002

2016-12-08 为201612-1-001

2016-12-13 为201612-1-003

代码，没问题。如果要重新生成，就先按照日期排序，再重置列。

编号是递增生成的，不可能和你日期有关系，如果编号都生成好了，你中间再插入一个日期，岂不是全部编号都要重新变化？

主题：编号出错