你的编目的逻辑,是根据已有的编号,不断累加下去的。如果你删除了数据,那肯定会从1重新编号。
你需要的编号,是怎样子的?
idx = CInt(max.Substring(11,3)) + 1 '获得最大编号的后三位顺序号,并加1
改成
idx = CInt(max.Substring(bh.length+1,3)) + 1 '获得最大编号的后三位顺序号,并加1