父表中记录子表中某一列的实时的最新值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 父表中记录子表中某一列的实时的最新值

共有3571人关注过本帖树形打印复制链接主题：父表中记录子表中某一列的实时的最新值

魏福庆

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：52 积分：602 威望：0 精华：0 注册：2020/8/11 8:39:00

父表中记录子表中某一列的实时的最新值 发帖心情

Post By：2023/7/6 21:19:00 [只看该作者]

老师您好，这段代码我是实在不会写啊，帮帮忙吧！

我有两个数据表，名字分别为“表A"和“表B",表A是父表，表B是子表，两个表都有”身份证“列，并通过”身份证“列进行关联；

表A中有一列为”标注“，表B中有一列为”实时标注“，表B中还有一列为”日期“列。现在我想在表B中找到”日期“列的最新日期行，然后返回”实时标注“列的对应值填充到表A的标注列里面。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/7/6 21:40:00 [只看该作者]

“表B" datacolchanged事件

if e.datacol.name = ”日期“ orelsee.datacol.name = ”实时标注“ then

dim dr as datarow = datatables("表A").find("身份证='" & e.datarow("身份证') & "'")

if dr isnot nothing then

dim dr2 as datarow = e.datatable.find("身份证='" & e.datarow("身份证') & "'","日期 desc")

if dr2 isnot nothing then

dr("标注") = dr2("实时标注")

end if

魏福庆

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：52 积分：602 威望：0 精华：0 注册：2020/8/11 8:39:00

Post By：2023/7/7 7:38:00 [只看该作者]

多谢老师，有几个符号错了，修改一下就能用，膜拜！！！解决大问题了。

If e.DataCol.name = "日期" OrElse e.DataCol.name = "实时标注" Then

Dim dr As DataRow = DataTables("表A").find("身份证='" & e.DataRow("身份证") & "'")

If dr IsNot Nothing Then

Dim dr2 As DataRow = e.DataTable.find("身份证='" & e.DataRow("身份证") & "'", "日期 desc")

If dr2 IsNot Nothing Then

dr("标注") = dr2("实时标注")

End If

主题：父表中记录子表中某一列的实时的最新值