如何根据不同的类型,自动创建序号

    记录号      保存年限        盒中序号

      1            10年            1

      2            30年            1

      3            10年            2

      4            30年            3

但如果改后发现不对,又改为保存年限30年,按照我的思路,则:

     记录号      保存年限        盒中序号

      1            10年            1

      2            30年            1

      3            30年            4

      4            30年            3

   其实此时第3条记录30年的保存年限对应的盒中序号的应该:仍是2（下面的代码是我目前的思路）

Private Sub 归档年限_AfterUpdate()
    Select Case Me.归档年限
        Case Is = 1
            a = a + 1
            Me.盒中件号 = a
        Case Is = 2
            b = b + 1
            Me.盒中件号 = b
         Case Is = 3
            c = c + 1
            Me.盒中件号 = c    
    End Select   
End Sub