主题：多条件跨表引用赋值的问题

If e.DataCol.Name = "工作部门" Then
    If e.NewValue Is Nothing Then
        e.DataRow("部门负责人") = Nothing
    Else
        Dim dr1 As DataRow
        dr1 = DataTables("表A").Find("[工作部门] = '" & e.NewValue & "' and 岗位职务 = '主任'")
        If dr1 IsNot Nothing 
            e.DataRow("部门负责人") = dr1("员工姓名")
        End If
    End If
End If