- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关联表A 单元格数据关联表B如何同步row最大的那个值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169707)
-- 发布时间：2021/6/27 13:25:00
-- 关联表A 单元格数据关联表B如何同步row最大的那个值
关联表A 的现使用人 同步 关联表 B 最后一条数据row() 最大的那条数据 的 领用人员 现使用人=领用人员
此主题相关图片如下：qq图片20210627132015.png
-- 发布时间：2021/6/27 21:00:00
--
表A ，datacolchanged
If e.DataCol.name = "设备编号" Then
Dim pr As DataRow = datatables("设备领用单").find("设备编号=\'" & e.newvalue & "\'","_sortkey desc")
Dim pr As DataRow = datatables("设备领用单").find("设备编号=\'" & e.newvalue & "\'","_sortkey desc")
If pr IsNot Nothing Then
e.datarow("现使用人") = pr("领用人员")
e.datarow("现使用人") = pr("领用人员")
End If
End If
End If
表B ，datacolchanged
If e.DataCol.name = "领用人员" Then
Dim dr As DataRow = datatables("表A").find("设备编号=\'" & e.datarow("设备编号") & "\'")
if dr isnot nothing then
Dim pr As DataRow = e.datatable.find("设备编号=\'" & e.datarow("设备编号") & "\'","_sortkey desc")
Dim pr As DataRow = e.datatable.find("设备编号=\'" & e.datarow("设备编号") & "\'","_sortkey desc")
If pr IsNot Nothing Then
dr("现使用人") = pr("领用人员")
dr("现使用人") = pr("领用人员")
End If
End If
End If
End If
-- 发布时间：2021/6/28 15:45:00
--
代码没反应，大大！
-- 发布时间：2021/6/28 15:57:00
--
已有数据重置一下列
-- 发布时间：2021/6/28 16:03:00
--
谢谢老大