- 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=122876)
-- 发布时间：2018/8/3 14:58:00
-- [求助]自动输入编号问题
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
End If
End If
此主题相关图片如下：qq图片20180803145854.png
此主题相关图片如下：qq图片20180803145854.png问题：为什么从第二条开始就一直是相同一个编号了呢？
[此贴子已经被作者于2018/8/3 14:59:26编辑过]
-- 发布时间：2018/8/3 15:22:00
--
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 = "MM-" & 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(10,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("故障ID") = bh & Format(idx,"000")
End If
End If
End If
[此贴子已经被作者于2018/8/3 15:23:14编辑过]
-- 发布时间：2018/8/3 15:37:00
--
谢谢，可以用了，另外想问：我之前有一批订单是没有编号的，现在有什么办法可以把旧的订单也按这个规则生成？
-- 发布时间：2018/8/3 17:56:00
--
以下是引用abc2363360在2018/8/3 15:37:00的发言：
谢谢，可以用了，另外想问：我之前有一批订单是没有编号的，现在有什么办法可以把旧的订单也按这个规则生成？
谢谢，可以用了，另外想问：我之前有一批订单是没有编号的，现在有什么办法可以把旧的订单也按这个规则生成？
参考，重置列
http://www.foxtable.com/webhelp/scr/1469.htm
-- 发布时间：2018/8/6 9:44:00
--
对数据进行重置后，发现代码还是有点问题，每个月最后一天的编号全是相同的。
此主题相关图片如下：qq图片20180806094316.png
-- 发布时间：2018/8/6 9:46:00
--
max = e.DataTable.Compute("Max(故障ID)","报障时间 >= #" & fd & "# And 报障时间 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
改成
max = e.DataTable.Compute("Max(故障ID)","报障时间 >= #" & fd & "# And 报障时间 < #" & ld.AddDays(1) & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
-- 发布时间：2018/8/6 10:10:00
--
超过1000又不正常了，请帮忙把 MM-年月-编号 修改为 MM-年月日-编号 谢谢！
此主题相关图片如下：qq图片20180806101141.png
[此贴子已经被作者于2018/8/6 10:11:43编辑过]
-- 发布时间：2018/8/6 10:13:00
--
删除编号后重新生成。
-- 发布时间：2018/8/6 10:18:00
--
我现在是新增加到1000以上，不是对旧的进行重置，代码只支持 000 三位，所以超过就不正确了，
麻烦把代码修改一下，请帮忙把 MM-年月-编号 修改为 MM-年月日-编号 谢谢！
-- 发布时间：2018/8/6 10:30:00
--
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 fd As Date = d
Dim ld As Date = d.adddays(1)
Dim bh As String = "MM-" & Format(d,"yyyyMMdd") & "-" \'生成编号的前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(bh.length,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("故障ID") = bh & Format(idx,"000")
End If
End If
End If