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

请问版主，我在一张项目表里，要设计项目编号。项目表里有两列，分别是“项目时间”和“项目类型”。其中项目类型有A, B, C三类。

我设计的项目编号规则如下，根据“项目时间”+“顺序号”+“项目类型”+，例如

Case 1

项目时间：2015-03-01（项目表里第一个录入的2015年的项目）

项目类型：A

项目编号：15001A

Case 2

项目时间：2015-06-01（项目表里第二个录入的2015年的项目）

项目类型：C

项目编号：15002C

Case 3

项目时间：2016-06-01（虽然是项目表里第三个录入的项目，但是是第一个项目时间为2016年的项目）

项目类型：C

项目编号：16001C （注意不是16003C）

我目前只能在表事件的datacolchanged里加入以下代码：

If e.DataRow.IsNull("项目日期") OrElse e.DataRow.IsNull("项目类型") Then

e.DataRow("项目编号") = Nothing

Else

e.DataRow("项目编号") = Right(e.DataRow("项目日期").Year,2) + Format(e.DataRow("_Identify"),"000") + e.DataRow("项目类型")

End If

已经可以做到根据“年份+顺序号+类型”（这个规则是必须的），但是无法根据不同的项目时间年份分别加入顺序号，有什么方式可以做到呢？不同时间的项目最好都存在同一张项目表里。

谢谢版主！

我已经看过了，上面的代码就是根据这个写的，但是有没有什么方式可以区分不同的年份分别编写顺序号，例如：

1）遍历读遍所有的项目日期及编号

2）选取该年份最大的顺序号

3）然后顺序号在2）上+1

逻辑我能想到，但代码不会写，请帮忙，或者请告诉我应该查看帮助文档哪个地方

我不会做，就是一张数据表，怎么实现：

1）遍历读遍所有的项目日期及编号

2）选取该年份最大的顺序号

3）然后顺序号在2）上+1

关键命令是什么？或者我去哪里查？

工况就如帖子里描述的。

欧！看到了！刚开错链接了！非常感谢！

谢谢版大，研究了半天完美解决！

对于这段代码，有一行没看的太懂，有点疑问请教（接二楼教程里的一行），

max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该月的最大编号

问题：

[_Identify] <> " & e.DataRow("_Identify") 这两个主键列比较的意义是什么？没看懂。而且还是用and与两个日期日期比较逻辑与起来。能解释一下吗？

哇，太感动了，居然帮我写出来。。。图片点击可在新窗口打开查看

这个我自己琢磨出来写的，也能行：

If e.DataCol.Name = "项目日期" Then

If e.DataRow.IsNull("项目日期") OrElse e.DataRow.IsNull("项目类型") Then

e.DataRow("项目编号") = Nothing

Else

Dim d As Date = e.DataRow("项目日期")

Dim y As Integer = d.Year

Dim fd As Date = New Date(y,1,1)

Dim ld As Date = New Date(y,12,31)

Dim bh As String = Format(d,"yy")

If e.DataRow("项目编号").StartsWith(bh) = False

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(项目编号)","项目日期 >= #" & fd & "# And 项目日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify"))

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

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

Else

idx = 1

End If

e.DataRow("项目编号") = bh & Format(idx,"000") & e.DataRow("项目类型")

End If

主题：[求助]请教关于项目编号的设计