- 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=94321)
-- 发布时间：2016/12/21 10:36:00
-- 编号出错
老师，我根据帮助的编号方法写了以下代码，但是出现了错误，麻烦老师帮看看，谢谢！
我想根据“第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
End If
End If
出现的错误：
此主题相关图片如下：编码错1.png
-- 发布时间：2016/12/21 10:41:00
--
"
-- 发布时间：2016/12/21 10:46:00
--
改成 If e.DataCol.Name = "第1序_配膳日","价值级" Then
也不对呀
-- 发布时间：2016/12/21 11:05:00
--
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”的转换无效。
输入字符串的格式不正确。
-- 发布时间：2016/12/21 11:11:00
--
idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1
改成
idx = CInt(max.Substring((bh & "-" & jz).length)) + 1 \'获得最大编号的后三位顺序号,并加1
-- 发布时间：2016/12/21 11:28:00
--
老师，按照以下代码，“指令单”列出来了，但结果不太对，
此主题相关图片如下：指令单1.png
如前三行中，
第1序_配膳日 指令单
2016-12-17 应为 2016-1-003（003应为本月中的顺序号，按照日期排序的）
2016-12-06 应为2016-1-001
2016-12-16
-- 发布时间：2016/12/21 11:31:00
--
代码是：
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
End If
End If
-- 发布时间：2016/12/21 11:33:00
--
删除所有编号，重新生成。
-- 发布时间：2016/12/21 12:35:00
--
老师，您好！
我感觉 按月生成编号是按照同月中记录出现的先后顺序 （[_Identify]）来编号的，
我想要的效果是，不是按照出现的先后顺序，而是日期的先后顺序，如同为2016年12月，
按1日到31日的顺序，先早出现就先顺着编号。同一日期的，再按照记录的顺序（[_Identify]）来编号
2016-12-13 为201612-1-002
2016-12-08 为201612-1-001
2016-12-13 为201612-1-003
-- 发布时间：2016/12/21 14:44:00
--
代码，没问题。如果要重新生成，就先按照日期排序，再重置列。
编号是递增生成的，不可能和你日期有关系，如果编号都生成好了，你中间再插入一个日期，岂不是全部编号都要重新变化？