主题：某列的值来自另外一张表相同列名的值中最后一个值

有表C和表B，如下图：

1.表C中入库时间和查询时间的值取自表B相同编号的入库时间和查询时间，并且是最晚的时间

2.表C中入库人的值取自表B中相同编号的入库人的值，取值规律是：薛六，王五，李四，张三按顺序排，表B入库人值里面哪个人是按顺序排后面的，表C中的入库人就取那个人。

而且都要能实时更新，想实现这样的目的，思路怎么写？

此主题相关图片如下：122.jpg


此主题相关图片如下：123.jpg

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

点击浏览该文件:管理项目1.table

Select Case e.DataCol.name
    Case "编号"
        Dim dr As DataRow = DataTables("表B").Find("编号 = '" & e.NewValue & "'","入库时间 Desc")
        If dr IsNot Nothing Then
            e.DataRow("入库时间") = dr("入库时间")
            e.DataRow("查询时间") = dr("查询时间")
            e.DataRow("入库人") = dr("入库人")
        End If
End Select

 

参考：

http://www.foxtable.com/help/topics/0396.htm

 

关键是入库人列，怎样设置一下取值的时候能按“薛六，王五，李四，张三”这样的顺序取，因为入库人的取值不是按最后的入库时间取的

你的意思是什么？

如果同一个编号，张三和王五都入库了，即使张三入库时间在前，也取王五？ 这是什么道理？

对，因为要判断一个负责人，和入库时间没关系，入库人列是单独处理的，不管谁先去入库，只显示级别最高的那个人

Select Case e.DataCol.name
    Case "编号"
        Dim dr As DataRow = DataTables("表B").Find("编号 = '" & e.NewValue & "'","入库时间 Desc")
        Dim vals As List(of String) = DataTables("表B").GetUniqueValues("编号 = '" & e.NewValue & "'","入库人")
        Dim nms() As String = {"薛六","王五","李四","张三"}
        If dr IsNot Nothing Then
            e.DataRow("入库时间") = dr("入库时间")
            e.DataRow("查询时间") = dr("查询时间")
        End If
        For Each nm As String In nms
            If vals.Contains(nm) Then
                e.DataRow("入库人") = nm
                Exit For
            End If
        Next
End Select

如下。
 

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

点击浏览该文件:管理项目1.table

嗯，这次可以了，这句“If dr IsNot Nothing Then”是只判断表B的入库时间列，还是查询时间列也判断？

lin_hailun的代码有点看不懂

我这个不是在切换表的时候使用的，而是当表B的入库时间、查询时间、入库人发生变化时，表C的入库时间、查询时间、入库人自动取值