主题：[求助]编号不能连续

在窗口增加一个按扭,代码如下:

Dim dr As Row
dr = Tables("客户信息").AddNew()
Dim bb As Integer
bb = Tables("客户信息").Compute("max(客户编号)")
dr("客户编号") = Format(bb+1,"0000")

为什么生成的编号总是加2的,,,2 4 6 8这样呢

谁帮我看看哪里错了,谢谢

哈哈,高人,一语命中,感谢!!