如何实现的编号？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:编号问题.zip

我只是提供了，使用废号的一个大概处理逻辑。要根据实际情况改到自己的项目里

问题1、出现问题的原因应该是没有及时删除回收表里已经使用的编号，或者回收表里有重复的编号，导致重复使用了。可以再加一个判断，查询一下业务表是否已经使用了这个编号，如果是就删除回收表的这个编号，然后重新查询取一个

问题2、删除行的时候，判断一下编号是否有值，没有的就不需要添加到回收表。如果有编号，也建议也查询回收表判断一下回收表是否已经存在这个删除的编号，如果有就不要重复添加了，避免出现问题1 的情况

问题3、我测试没有问题。应该是使用了重复的编号导致的

最后提醒一下，建议回收表加一个表名列，记录编号是哪个业务表使用的，取废号的时候根据表名取。不可能不同的单据都使用同一种编号。很多时候看别人的代码是要学习别人处理问题的思路和逻辑，而不是就照搬

[此贴子已经被作者于2022/6/2 10:29:40编辑过]

Dim dr1 As DataRow = DataTables("回收编号").Find("表名 ='xx订单表' and 编号 ='" & e.OldValue & "'")

if dr1 is nothing then

dr1 = DataTables("回收编号").AddNew

dr1("表名") = 'xx订单表'

dr1("编号") = e.OldValue

dr1.save

end if

[此贴子已经被作者于2022/6/6 9:29:15编辑过]

表名请改为自己正确的表名称。

编号是主键？把表名也作为主键

肯定有设置主键，不然不会有8楼的提示。建议改使用foxtable的_identify做主键。或者表名+编号双主键

建议改使用foxtable的_identify做主键。或者表名+编号双主键

测试前，先清空数据。或者保证回收表不能存在业务表在用的编号。业务表要保证编号的规则一致。

例子只处理了订单，销售自行参考来改

下载信息 [文件大小：下载次数： ]
点击浏览该文件:网络环境杂编号.zip

会的。跨网络，要使用服务端统一管理，类似：http://www.foxtable.com/webhelp/topics/3008.htm

主题：如何实现的编号？