通过表A勾选逻辑列，表B继承表A部分列后，通过按钮打开表B，排序混乱，及时在打开表B按钮中，加入排序的代码，都还不行，不知但哪儿出错，在表B中通过加载全部，排序又是正常的。

打开表B及主窗口代码：

MainTable = Tables("工程款管理")

Tables("工程款管理").ApplyFilter = False
Tables("工程款管理").Sort = "序号,所属机构"
Forms("工程款支付窗口").Open()

序号不正确截图：

此主题相关图片如下：111.png

筛选按钮中加载全部的代码

Tables("工程款管理").ApplyFilter = False
Tables("工程款管理").Sort = "序号,所属机构"

序号正确截图：

试试下面代码放到Forms("工程款支付窗口")的afterload事件

Tables("工程款管理").ApplyFilter = False
Tables("工程款管理").Sort = "序号,所属机构"

如果是副本，注意表名称

老师，还是没用啊？

我觉得应该和表A勾选逻辑列有关系，我如果取消勾选后，变B对应的行删除，在勾选，表B在继承对应的行，但是继承的行是加到表B最后的，表B序号列是自动编号。

不过我打开按照序号列重新编号了，按道理应该没问题，加载全部后都是正确的。

放到表的afterload里面，问题解决。

老师，新问题又出来了，表B中我前面几列是标准合并模式（第1列是序号，未引用表A的数据）自动编号，当我取消某行数据引用，表B序号有断裂，代码如下：

e.DataRow("序号") = e.DataTable.Compute("Max(序号)") + 1

如我这样写代码，合并的行会全部重新重新编号。

e.DataRow("序号") = e.DataTable.datarows.count

DataRowAdded:

For Each r As Row In Tables("人事管理").rows
    r("序号") = r.index + 1
Next

 没看明白你6楼的意图。断号可参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85293&skin=0

表A逻辑列勾选，表B引用，取消勾选，表B删除，当有新增的时候，表B会全部重新编号，但不能影响表B1-6列标准合并。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

 
此主题相关图片如下：22.png

实际出来效果是这样：

此主题相关图片如下：111.png

已上传，请大红袍老师看看，谢谢。