主题：跨表引用代码有问题，请狐狸爸爸帮我看一下，代码错在哪个地方？

检查一下另两表中相关列类型是否一致，是否有对应值。

同是判断一个工号，不用那么多if吧

If e.DataCol.Name = "工号" Then
    Dim dr,dr1 As DataRow
    Dim Filter As String
    Filter = "[被转正人工号] = '" & dr("工号") & "'And 被转正人 ='" & dr("姓名") & "'"
    dr1 = DataTables("人员转正").Find(Filter)
    If dr1 IsNot Nothing Then
        dr("转正时间")=dr1("转正日期")
        dr("状态")="正式"
    End If
   
    Filter = "[被续签人工号] = '" & dr("工号") & "'And 被续签人 ='" & dr("姓名") & "'"
    dr1 = DataTables("人员续签").Find(Filter)
    If dr1 IsNot Nothing Then
        dr("劳动合同_起始日期")=dr1("续签日期")
        dr("劳动合同_期限")=dr1("续签期限")
        dr("劳动合同_终止日期")=dr1("续签结束日期")
    End If
   
    Filter = "[被调动人工号] = '" & dr("工号") & "'And 被调动人 ='" & dr("姓名") & "'"
    dr1 = DataTables("人员调动").Find(Filter)
    If dr1 IsNot Nothing Then
        dr("部门")=dr1("现部门")
        dr("岗位")=dr1("现岗位")
    End If
End If