If e.DataCol.Name = "身份证号" Then
If e.NewValue Is Nothing Then
e.DataRow("学校") = Nothing
e.DataRow("姓名") = Nothing
Else
Dim dr As DataRow
dr = e.DataRow.GetParentRow("录用人员")
If dr IsNot Nothing
e.DataRow("学校") = dr("学校")
e.DataRow("姓名") = dr("姓名")
Else
dr = e.DataRow.GetParentRow("备选人员")
If dr IsNot Nothing
e.DataRow("学校") = dr("学校")
e.DataRow("姓名") = dr("姓名")
Else
dr = e.DataRow.GetParentRow("淘汰人员")
If dr IsNot Nothing
e.DataRow("学校") = dr("学校")
e.DataRow("姓名") = dr("姓名")
End If
End If
End If
End If
End If
加好友 
发短信
Post By：2016/9/27 16:07:00 [显示全部帖子]
