以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  我想“遗属调标”表的姓名列自动引用“遗属调标.遗属调标明细表”姓名列的第一个名字，怎么写代码？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99066)
--  作者：xhydxs
--  发布时间：2017/4/12 10:01:00
--  我想“遗属调标”表的姓名列自动引用“遗属调标.遗属调标明细表”姓名列的第一个名字，怎么写代码？
我想“遗属调标”表的姓名列自动引用“遗属调标.遗属调标明细表”姓名列的第一个名字，怎么写代码？

图片点击可在新窗口打开查看此主题相关图片如下：无标题.jpg
图片点击可在新窗口打开查看
--  作者：有点色
--  发布时间：2017/4/12 10:12:00
--  

子表DataColChanged事件

 

If e.DataCol.name = "姓名" Then
    Dim fdr As DataRow = DataTables("遗属调标明细").find("单位序号 = \'" & e.DataRow("单位序号") & "\'", "_Sortkey")
    Dim pdr As DataRow = DataTables("遗属调标").find("单位序号 = \'" & e.DataRow("单位序号") & "\'")
    If pdr IsNot Nothing Then
        pdr("姓名") = fdr("姓名")
    End If
End If