主题：[原创]自动生成流水号

数据库很少是单机操作，基本上都离不开网络。

网络环境下的自动编号，有以下这么一段，缺了这一段，可能出现重复编号。

Do
    Key = cmd1.ExecuteScalar() '从后台获得顺序号
    cmd2.commandText = "Update [编号] Set [顺序号] = " & (Key + 1) & " Where [顺序号] = " & Key & " And [前缀] = '" & pf & "' And 表名 = '" & nm & "'"
    If cmd2.ExecuteNonQuery() > 0 Then '更新顺序号
        Exit Do '更新成功则退出循环
    End If
Loop

自动编号，种类繁多，仅举几例：

1、大流水号，最常用，一直往后编。

2、年流水号，每年从头开始，有的每年自动更换一个字母前缀。

3、月流水号，每月从头开始。

4、日流水号，每日从头开始。

5、单据流水号，每张单据中的几条记录，按顺序编号。

6、单据号，一张单据可能有不同数量的记录，但一张单据就一个号。

有的有前缀，有的没有前缀，有的前缀固定，有的前缀自动变更。