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

本人参考帮助后写的自动编号，有时可以顺序下期，有时又不行，编号不会变，请老师看看那里有问题？

Select e.DataCol.Name

Case "作业日期","工程"

If e.DataRow.IsNull("作业日期") OrElse e.DataRow.IsNull("工程") Then

e.DataRow("编号") = Nothing

Else

Dim fd As Date = Date.Today

Dim bh As String = e.DataRow("工程") & "-" & Format(fd,"yyyyMMdd") & "-" '生成编号的前缀

If e.DataRow("编号").StartsWith(bh) = False '如果编号前缀不符

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "编号 like '" & bh & "%' And [_Identify] <> " & e.DataRow("_Identify")

max = e.DataTable.Compute("Max(编号)",flt) '取得该月的相同工程的最大编号

If max > "" Then '如果存在最大编号

idx = CInt(max.Substring(bh.length+3)) + 1 '获得最大编号的后三位顺序号,并加1

'idx = CInt(max.Substring(bh.Length)) + 1 '获得最大编号的后四位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

If user.name = "1课"

e.DataRow("编号") = bh & "1" & Format(idx,"0000")

Else If user.name = "2课"

e.DataRow("编号") = bh & "2" & Format(idx,"0000")

Else If user.name = "开发者"

e.DataRow("编号") = bh & "0" & Format(idx,"0000")

切换用户后，新增行后编号会重复，请大神看看。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目5.table

[此贴子已经被作者于2016/9/14 9:38:59编辑过]

此主题相关图片如下：无标题.png

蓝老师，还是不可以啊，编号没有变啊

谢谢，蓝老师！

下次编号这样写，可以吗？这样应该是同一种顺序号吧！

If e.DataCol.Name = "订单日期" Then

If e.DataRow.IsNull("订单日期") Then

e.DataRow("订单编号") = Nothing

Else

Dim bh As String = User.Name & Format(e.DataRow("订单日期"),"yyMMdd") '取得编号的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(9,3)) + 1 '获得最大编号的后三位顺序号,并加1

Else

idx = 1 '否则顺序号等于1

End If

e.DataRow("订单编号") = bh & "-" & Format(idx,"000")

End If

主题：[求助] 自动编号