主题：关联列的编号1种方法

（只是提供1种方法（对于有特别编号要求的应能实现），外部数源库适用：
效果：根据每年排号。如2008年 就是：
20080001
20080002
.....
.....

2009年就是：
20090001
20090002
.....
....
20099999

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

表事件：增加行的代码：

Dim d2 As integer
Dim d3 As string = today.year
Dim cmd As New SQLCommand
cmd.Conne cti onN a m e  = "v"
cmd.CommandText = "Insert Into 表C (f002) Values('"& d3 &"')"
cmd.ExecuteNonQuery()
cmd.CommandText = "Select count(f001) From 表C where f002 = '"& d3 &"' "
d2 = cmd.ExecuteScalar()
e.datarow("编号") = d3 + format(d2,"0000")

跟着删除表C相对应的行或以最大值判断

1般系统可以做到不提供删除，只提供修改或作废

理解错了，以为你需要连继编号，中间怎么样删除，都不会影响到重复。因为以表C的行数为判断。而表c是不会显视出来给使用者。（sql server中，根本没机会操作） access这个，当然文件都可以删除。