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

Dim bh As String = Format(e.DataRow("日期"),"QCyyyyMMdd-") '取得出库编号的8位前缀
If e.DataRow("出库编号").StartsWith(bh) = False '如果出库编号的前8位不符
    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(bh.Length,3)) + 1 '获得最大出库编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("出库编号") = bh & Format(idx,"000")
End If

主题：还是自动编号的求助