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

应该是代码逻辑有问题。具体请上传实例测试

一时半会看不懂您的业务逻辑，这么庞大的系统只能自己跟踪调试了。最有效的方法就是写日志跟踪每一步的操作

提几个建议

1、不要在datacolchanged使用current这种用法【Tables("销售定单主表").current】，如果要取当前行，应该是e.datarow

2、【销售定单主表】窗口撤销按钮有很大问题：

With Tables("销售定单主表")

If .Current IsNot Nothing Then

Dim drs As List (of DataRow)=.Current.DataRow.getchildrows("销售定单明细表")

For Each dr As DataRow In drs

dr.reject()

.Current.DataRow.Reject() '假设这句代码执行了，并且这一行是新增行，那么这个行会被删除，删除后如果有下一行，那么会选中下一行

End If

End With

注意看上面红色文字，这时"销售定单主表"选中的已经是另外一行的数据了，也就是说下面的撤销操作全部都是另外一行的子表，然后如果另外一行也是新增行，这一行也会被删除，如果不是新增行，这一行更改的内容会被还原

With Tables("销售定单主表")

If .Current IsNot Nothing Then

Dim dis As List (of DataRow)=.Current.DataRow.getchildrows("安装费额外增加明细表")

For Each di As DataRow In dis

di.reject()

.Current.DataRow.Reject()

End If

End With

所以对于主表.Current.DataRow.Reject()应该放到最后再执行一次即可

保存前看看【销售定单主表】，是选中A行，还是选中了新增的行？是双击主表打开的编辑窗口？还是双击窗口副本表打开的编辑窗口？

联动肯定有效果，如果没有应该是设置不对，代码发上来看看

点击新增按钮打开编辑窗口后，看看副本表和主表是不是都能够看到新增行，并且都选中的新增行。如果没有应该是有什么代码影响了，比如表格做了筛选，新增行没有录入符合筛选条件的数据前，是不会显示在表格里的，也就不会选中了

什么事件出错，贴出完整代码说明

If Forms("销售定单主表主窗口").Opened andalso e.Table.Current isnot nothing Then '如果窗口已经打开

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("销售定单主表主窗口_table1").FindRow(dr)

If wz >=0 Then

Tables("销售定单主表主窗口_table1").Position = wz

End If

主表和副本，互相定位导致的问题。就好比2个人太客气了，你鞠一躬，我鞠一躬，你还一躬，我还一躬，无休止

If Forms("销售定单主表主窗口").Opened andalso e.Table.Current isnot nothing Then '如果窗口已经打开

Dim dr As DataRow = e.Table.Current.DataRow

Dim wz As Integer = Tables("销售定单主表主窗口_table1").FindRow(dr)

If wz >=0 Then

systemready = false

Tables("销售定单主表主窗口_table1").Position = wz

systemready = true

End If

主题：编号错乱