主题：自动填表

请问在同一项目中有两个表A和表B，现在在表B的姓名列填写上姓名后，立即将表A姓名列找相同姓名的AA、BB列的内容写入表B的CC、DD列，代码怎么写呢，请帮忙。谢谢。

能不能将A表的姓名列设为B表姓名列的取值列，当选定姓名后，同时把A表当前记录的AA、BB列内容写入B表的CC、DD列？

请老师给看看，这个代码为什么不对。

Dim dr As DataRow = e.DataRow
Dim Filter As String
dr = DataTables("职工信息总表").Find(Filter)
If e.DataCol.name = "姓名" Then
    If e.DataRow("姓名") =""
       
        e.DataRow("现岗位_级别")= dr("岗位类别")
        e.DataRow("现岗位_晋级日期")= dr("岗位晋级_晋级日期")
        e.DataRow("资历考核_工作资历_工作时间")= dr("工作时间")
        e.DataRow("资历考核_工作资历_工作年限")= dr("工龄")
        e.DataRow("资历考核_任职资历_职称")= dr("zczczj")
        e.DataRow("资历考核_任职资历_评定时间")= dr("zcpdrq")
    End If
End If

报错是什么原因？

此主题相关图片如下：无标题.png

老师，不好意思，还是出报相同的错误。

'If e.DataCol.name = "姓名" Then
If e.DataRow.isnull("姓名")
    e.DataRow("现岗位_级别")= Nothing     ' ……其它自己补充
    e.DataRow("现岗位_晋级日期")= Nothing
    e.DataRow("资历考核_工作资历_工作时间")= Nothing
    e.DataRow("资历考核_工作资历_工作年限")= Nothing
    e.DataRow("资历考核_任职资历_职称")= Nothing
    e.DataRow("资历考核_任职资历_评定时间")= Nothing
   
Else
    Dim dr As DataRow = DataTables("职工信息总表").Find("姓名='" & dr("姓名") & "'")
    If dr IsNot Nothing
        e.DataRow("现岗位_级别")= dr("岗位类别")
        e.DataRow("现岗位_晋级日期")= dr("岗位晋级_晋级日期")
        e.DataRow("资历考核_工作资历_工作时间")= dr("工作时间")
        e.DataRow("资历考核_工作资历_工作年限")= dr("工龄")
        e.DataRow("资历考核_任职资历_职称")= dr("zczczj")
        e.DataRow("资历考核_任职资历_评定时间")= dr("zcpdrq")
    End If
End If
'End If

不去掉也是一样的，总提示错误。不知什么原因呢。