- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现在父表中体现子表的最新数据？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=172363)
-- 发布时间：2021/10/9 10:13:00
-- 如何实现在父表中体现子表的最新数据？
此主题相关图片如下：计划管理.jpg
如何实现在父表中体现子表的最新数据？请教各位前辈。
此主题相关图片如下：榨季管理.jpg
If e.DataCol.Name = "队别" Then
If e.NewValue Is Nothing Then
e.DataRow("过磅数吨数") = Nothing
e.DataRow("蔗场存蔗吨数") = Nothing
e.DataRow("地上存蔗吨数") = Nothing
e.DataRow("砍车数") = Nothing
e.DataRow("运车数") = Nothing
Else
Dim dr As DataRow
Dim tr As DataRow
dr = DataTables("当天砍运完成").Find("[单位] = \'" & e.NewValue & "\'","_Identify Desc")
tr = DataTables("计划").Find("[单位] = \'" & e.NewValue & "\'","_Identify Desc")
If dr IsNot Nothing
e.DataRow("过磅数吨数") = dr("过磅数")
e.DataRow("蔗场存蔗吨数") = dr("蔗场存蔗")
e.DataRow("地上存蔗吨数") = dr("地上存蔗")
e.DataRow("砍车数") = tr("砍计划")
e.DataRow("运车数") = tr("运计划")
End If
End If
End If
代码有问题。有劳各位前辈支持。 |
[此贴子已经被作者于2021/10/9 10:29:06编辑过]
-- 发布时间：2021/10/9 10:14:00
--
[此贴子已经被作者于2021/10/9 10:26:47编辑过]
-- 发布时间：2021/10/9 10:15:00
--
代码有问题。有劳各位前辈支持。
-- 发布时间：2021/10/9 10:18:00
--
关联列为“队别“与”单位“
-- 发布时间：2021/10/9 10:35:00
--
……
Else
Dim dr As DataRow
Dim tr As DataRow
dr = DataTables("当天砍运完成").Find("[单位] = \'" & e.NewValue & "\'","_Identify Desc")
tr = DataTables("计划").Find("[单位] = \'" & e.NewValue & "\'","_Identify Desc")
If dr IsNot Nothing
e.DataRow("过磅数吨数") = dr("过磅数")
e.DataRow("蔗场存蔗吨数") = dr("蔗场存蔗")
e.DataRow("地上存蔗吨数") = dr("地上存蔗")
End If
If tr IsNot Nothing
e.DataRow("砍车数") = tr("砍计划")
e.DataRow("运车数") = tr("运计划")
End If
End If
End If
-- 发布时间：2021/10/9 10:58:00
--
谢谢有点蓝老师的帮助。错误提示解决了。