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

If e.DataCol.Name = "工号" Then
    Dim Filter As String = "[被转正人工号] = \'" & e.DataRow("工号") & "\'And 被转正人 =\'" & e.DataRow("姓名") & "\'"
    Dim dr1 As DataRow = DataTables("人员转正").Find(Filter)
    If dr1 IsNot Nothing Then
        e.DataRow("转正时间")=dr1("转正日期")
        e.DataRow("状态")="正式"
    End If
End If

If e.DataCol.Name = "工号" Then
    Dim Filter As String = "[被续签人工号] = \'" & e.DataRow("工号") & "\'And 被续签人 =\'" & e.DataRow("姓名") & "\'"
    Dim dr2 As DataRow = DataTables("人员续签").Find(Filter)
    If dr2 IsNot Nothing Then
        e.DataRow("劳动合同_起始日期")=dr2("续签日期")
        e.DataRow("劳动合同_期限")=dr2("续签期限")
        e.DataRow("劳动合同_终止日期")=dr2("续签结束日期")
    End If
End If

If e.DataCol.Name = "工号" Then
    Dim Filter As String = "[被调动人工号] = \'" & e.DataRow("工号") & "\'And 被调动人 =\'" & e.DataRow("姓名") & "\'"
    Dim dr3 As DataRow = DataTables("人员调动").Find(Filter)
    If dr3 IsNot Nothing Then
        e.DataRow("部门")=dr3("现部门")
        e.DataRow("岗位")=dr3("现岗位")
    End If
End If

我在 DataColChanged事件里写了上面一段代码，结果发现后面两小段(第九行开始)没有作用，没有出错，也没有实现效果。请狐狸爸爸帮我看一下，代码错在哪个地方？

狐狸爸爸 在吗？帮我看一下

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

同是判断一个工号，不用那么多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