主题：如何实现不同用户在上传数据时能独立自动编号

参考

http://www.foxtable.com/webhelp/scr/2403.htm

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

改成这样即可

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