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

也许这不属于一般的联动更新，而是需要多个条件判断的复杂地联动更新。

你的方法是简单而且实用。

但我确实不那么喜欢手动去打勾。

这个代码：

If e.DataCol.Name = "更新人员信息表" Then
    If e.DataRow("更新人员信息表") = True Then
        For Each dc As DataCol In DataTables("人员固定信息表").DataCols
            For Each dc1 As DataCol In DataTables("人员变动信息表").DataCols
                Dim dr As DataRow = DataTables("人员固定信息表").Find("姓名 = '" & e.DataRow("姓名") & "'")
                If dc.Name = dc1.Name Then
                    dr(dc.Name) = e.DataRow(dc1.Name)
                End If
            Next
        Next
    End If
End If

 

上面代码是对所有列进行了联动更新。

导致的结果是：打勾后，在《人员变动信息表》中单元格为空（实为没有变动的字段）的字段，在《人员固定信息表》中相对应的字段值都被更新为空值了。

还是按你原始的要求，这可是你梦寐以求的啊。

 

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

点击浏览该文件:最新信息表.table

楼上已作出例子，我再做一个吧，例子是得到最新数据，至于数据你想怎么用，你自己想法，参考上面的例子。

代码一个地方改了，其他的要相应的改动才是，这你应该知道啊。

人员信息变动表，每次增加新行，与人员信息表相同的字段就自动从人员信息表中取值，日期自动取当天日期。

这样，只需要更改需要更改的列，其他列还是原值，你更新到人员信息表，就不会有你不想要的空值了。

再给个建议：

不要用逻辑列，因为逻辑列，打不打勾都可能是修改后的值，不好判断。

    ISY实现的比较完美。有点甜的思路，也能实现同样的功能。

我自已怎么弄也弄不出来，论坛里又没有发现我这种需求。

 

下次有还有什么问题，再来请教你们。

谢谢二位。真是学习了。

还以为你失望而去嘞，又转回来了。

如果连我这个想法都实现不了，那我可真要失望而去了。

 

现在重新燃起了学习的希望，在这个基础上继续前行。

他的需求应该是按时间取最新值吧，怎么弄得这么复杂。我也想找怎么取某列的最新值，有一个时间列的，按时间最新取，请教方法！谢谢！