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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于编号的生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71255)

--  作者：elfing
--  发布时间：2015/7/8 11:17:00
--  [求助]关于编号的生成
尝试在窗口使用"代号"和"到货时间"自动生产编号,但是实际使用中发现有重复编号的情况出现,请大大帮忙看看问题出现在哪里呢

\'自动填充订单号
Select e.DataCol.name
Case "到货时间","件号"
If e.DataRow.IsNull("到货时间") OrElse e.DataRow.IsNull("件号") Then
e.DataRow("订单号") = Nothing
Else
Dim bh As String = e.DataRow("代号") & Format(e.DataRow("到货时间"),"yyMMdd")
If e.DataRow("订单号").startsWith(bh) = False
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(订单号)","到货时间= #" & e.DataRow("到货时间") & "# And [_Identify] <> " & e.DataRow("_Identify"))
If max > "" Then
idx = CInt(max.Substring(8,2)) + 1
Else
idx = 1
End If
e.DataRow("订单号") = bh & Format(idx,"00")
End If
End If
End Select

--  作者：大红袍
--  发布时间：2015/7/8 11:33:00
--

实际使用过程中重复？自己用的时候重复，还是多人一起使用的情况重复？

Select e.DataCol.name
    Case "到货时间","件号"
        If e.DataRow.IsNull("到货时间") OrElse e.DataRow.IsNull("件号") Then
            e.DataRow("订单号") = Nothing
        Else
            Dim bh As String = e.DataRow("代号") & Format(e.DataRow("到货时间"),"yyMMdd")
            If e.DataRow("订单号").startsWith(bh) = False
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(订单号)","代号 = \'" & e.DataRow("代号") & "\' and 到货时间= #" & e.DataRow("到货时间") & "# And [_Identify] <> " & e.DataRow("_Identify"))
                If max > "" Then
                    idx = CInt(max.Substring(bh.Length,2)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("订单号") = bh & Format(idx,"00")
            End If
        End If
End Select

--  作者：elfing
--  发布时间：2015/7/8 12:31:00
--  自己使用过程中重复
程序还没有发布,自己使用的过程中出现重复

--  作者：elfing
--  发布时间：2015/7/8 12:38:00
--  感谢
问题已解决,谢谢!:)