自动生成不重复装箱单号

分析数据兄，你概念是否有问题？ 用 Rnd() 来生成唯一标识？

唯一的话，就用全世界唯一号哦： UUID 格式，适应任何系统，任何语言，任何数据库！

Function getGUID()
    getGUID = LCase(Mid$(CreateObject("Scriptlet.TypeLib").guid, 2, 36))
End Function

你想取得唯一，还有很多方法的！

譬如取 Timer() 是开机以来的 秒数，有百分一秒的！

想有乱码效果，就加个 base64 算法 或者 md5 就可以了！网上免费下的！