主题：[求助]最大编号的问题。

改一下

 

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

 应该是你原本的编号有问题吧？msgbox(max)看看，试试移除掉原来的记录。

 加入代码msgbox(max)看看弹出的值是什么。

 如果你原本的记录是两位的，需要用代码把它们规范起来，把两位的99变成三位099

 看7楼，要改数据。

 你要把所有两位的改成3位的才行。

 

 For Each dr As DataRow In DataTables("表A").Select("")
    If dr.IsNull("第一列") = False AndAlso dr("第一列").Length = 8 Then
        dr.Locked = not dr.Locked
        dr("第一列") = dr("第一列").Substring(0,6) & "0" & dr("第一列").Substring(6,2)
        dr.Locked = not dr.Locked
    End If
Next

 这段代码单独执行，对应的表名，列名要改。

 

 需要修改的表都要改。