以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表A 单元格数据关联表B如何同步row最大的那个值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169707)

--  作者:31803263
--  发布时间: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")
    If pr IsNot Nothing Then
     e.datarow("
现使用人") = pr("领用人员")
    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")
    If pr IsNot Nothing Then
     dr("
现使用人") = pr("领用人员")
    End If
End If
End
 If

--  作者:31803263
--  发布时间:2021/6/28 15:45:00
--  
代码没反应,大大!
--  作者:有点蓝
--  发布时间:2021/6/28 15:57:00
--  
已有数据重置一下列
--  作者:31803263
--  发布时间:2021/6/28 16:03:00
--  
谢谢老大