主题：我想“遗属调标”表的姓名列自动引用“遗属调标.遗属调标明细表”姓名列的第一个名字，怎么写代码？

子表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