主题：[原创请教：]如何将每列的最新数据获取出来，形成一个最新的列表

图片上传才能看的到，粘贴不行。

最好上传个实例。

还是思路有问题：

人员信息表（哪来的固定？）

人员信息变动表

人员信息表中，每个人员赋与一个不重复的编号，或者人员姓名后面加括号，注明重名者的差别，以使姓名唯一。

人员信息变动表中，人员姓名或编号，必须取自人员信息表。

人员信息变动表中的每一个与人员信息表相同的列，只要值有变动，人员信息表相对应的列就更新为最新的列值。

人员信息表中的信息，就是最新的信息，而且每个人永远只有一行。

用不着第三张表了。

看你实际需要而定。

也可能你想把人员信息表，一分为二。一个记录相对固定不变的信息，另一个记录有可能变动的信息，总之，一个人在一张表中就一条记录。

你的人员信息变动表，主要作用是，跟踪详细的变动过程。

不管是两张表，还是三张表，都是通过唯一的人员编号或姓名关联。

1、人员信息表，是非常基础的表，不是什么人都能看到，更不是什么人都能修改；引用这个表的代码非常多，一招不慎，满盘皆输。

     即使某个人员离开本单位，他的信息也不能删除，而是在一个“停用”的逻辑列中打上钩。

     由于人员信息变动表的每一次变动都反应到人员信息表中，人员信息变动表的操作，也需要专门的权限。

2、人员信息变动表，记录变动的过程，只要保存，任何人都不允许修改、删除，不然还算得上跟踪吗？要修改相关人员信息，就新增一行。

历史错了，就错了，篡改是不行的。

只要人员信息表对，就行。

呵呵，我想起来了，你这个人员变动信息表，目的是记录人员变动，而不是对人员信息变动的操作。

If e.DataRow.RowState = DataRowState.Added Then
    Dim dr As DataRow = DataTables("人员固定信息表").Find("姓名 = '" & e.DataRow("姓名") & "'")
    Select Case e.DataCol.Name
        Case = "职务"
            dr("职务") = e.DataRow("职务")
    End Select
End If

新增行不一定就是最后一行，只要新增的未保存，不管多少行，都仍然是新增行。

如果你对是否更新非常执着，可以在人员信息变动表中加一逻辑列：更新人员信息表。

打钩（True)就更新，不打钩（False)就不更新。

这就不需要判断行的状态。

判断、操作，越简单越好：

更新人员信息表，打钩就更新，不打钩就不更新。

每次修改，都更新所有相关列，只不过有的列数据并没有改动，实际效果是没有更新，改动过的列，才是真正更新了。

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

点击浏览该文件:由变动情况表生成最新情况表的设计方法求助.table