每新增1行时会同时（时间点完全一致）产生2个行键值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新增行的代码改为：

Tables("物流计划.运输单副表").Focus

If Tables("物流计划.运输单副表").AllowAddNew = True Then

SystemReady = False

dim r as row = Tables("物流计划.运输单副表").addnew

r.Save '每次增加行后，自动保存表，使得自动增量列获得真实的值

SystemReady = true

Else

MessageBox.Show("您没有该权限，请联系系统管理员！", "提示")

End If

原因是使用关联表新增，新增后会给关联列赋值，就会马上触发datacolchanged事件，而这时还没有保存。所以_Identify还不是真实的值。如果在子表新增就不会有这种问题了

[此贴子已经被作者于2024/1/12 17:24:48编辑过]

主题：每新增1行时会同时（时间点完全一致）产生2个行键值