此主题相关图片如下：计划管理.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编辑过]
加好友 
发短信
Post By：2021/10/9 10:13:00 [显示全部帖子]
