主题：求教，一个跨表引用的问题

大概这样子吧。

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "被转正人工号" Then
    If dr.IsNull("被转正人工号") = False Then
        Dim dr1 As DataRow = DataTables("人员").Find("工号 = '" & dr("被转正人工号") & "'")
        If dr1 IsNot Nothing Then
            dr("被转正人") = dr1("姓名")
            dr("转正时间") = Today
            dr1("转正时间") = Today
        End If
    End If
End If