主题：[求助]如何调用最新或最后，或最高级别的一条记录

一个工号对应多条记录，比如“学历教育”表中，工号A001记录了该人员的中专、大专、本科3条学历记录，想在“基本资料”表中“最高学历”列只调用最高学历。如何实现？

增加一个学历设置：

1            小学一年级

2            小学一年级

3            小学一年级

4            小学一年级

……

n            本科  

……

 

从文凭到学历，一一对应，否则，电脑来判断最高级别，您需要在您用到的地方做N个判断才能实现。                 

现在我做了一个例子，求高手指点，工号001的人员基本资料表中，最高学历_学历，最高学历_专业， 最高学历_ 毕业时间，最高学历_毕业院校，如果读取“学历教育”表中，001人员的最后一条学历记录。

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

点击浏览该文件:学历关联.table

求助

你是根据工号来写入姓名和单位，你试试在学历教育表的姓名列输入看看

另外一个问题看这里

 

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

 

 

最高学历的问题还是没有解决，顶起来。

 

现在我的思路是，[基本资料]表读取[学历教育]表中"毕业时间"列,当该工号的毕业时间最大,那么这个毕业时间就是最高学历时间,然后将该行的"毕业时间","学历","毕业院校","专业"填充到[基本资料]表中的"毕业时间","学历","毕业院校","专业"列.

看到一个代码是,我觉得还是不会DataTables("学历教育").Compute("Max(日期)")
请各位高手指点.

Dim dr As DataRow = DataTables("学历教育").Find("工号 = '" & e.DataRow("工号") & "'","毕业时间 Desc")

是写成这样吗？还是不行。。。

If e.DataCol.Name = "工号" Then
    Dim dr As DataRow
    dr = DataTables("学历教育").Find("[工号] = '" & e.DataRow("工号")& "'","毕业时间 Desc")
    If dr IsNot Nothing Then
        e.DataRow("学历") = dr("学历")
        e.DataRow("毕业院校") = dr("毕业院校")
        e.DataRow("专业") = dr("专业")
        e.DataRow("毕业时间") = dr("毕业时间")
    Else
        e.DataRow("学历") = Nothing
        e.DataRow("毕业院校") = Nothing
        e.DataRow("专业") = Nothing
        e.DataRow("毕业时间") = Nothing
    End If
End If