谁有写过自动生成五位递增的代码呀！

Question

Private Sub Command1_Click()
    Dim i As Long
    For i = 1 To 99999
        Debug.Print Format(i, "00000")
    Next
End Sub

Answer 1

我倒是写过，不过中间有记录删除后，再增加记录，中间的数字不补
记录字段用varchar一类的类型，直接select max(字段名) from table
不过保存时一定要保证内容是五位，不足的前补0
原因是用它们的ASCII码比较
取出来后转成int型+1，再转成形如00004的形式存入

Answer 2

sqlserver 定义一个IDENTITY类型的field
oracle定义一个sequence
不用自己写啊