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

以下是引用abc2363360在2018/8/3 15:37:00的发言：
谢谢，可以用了，另外想问：我之前有一批订单是没有编号的，现在有什么办法可以把旧的订单也按这个规则生成？

参考，重置列

http://www.foxtable.com/webhelp/scr/1469.htm

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")) '取得该月的最大编号

删除编号后重新生成。

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

If e.DataCol.Name = "报障时间" Then
    If e.DataRow.IsNull("报障时间") Then
        e.DataRow("故障ID") = Nothing
    Else
        Dim d As Date = e.DataRow("报障时间")
        Dim fd As Date = d.date
        Dim ld As Date = fd.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

删除编号后重新生成。如果还有问题，项目发上来测试。

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