Select Case e.DataCol.name Case "人员" Dim pr As DataRow = e.DataRow.GetParentRow("表A") If pr IsNot Nothing Then pr("人员") = e.DataRow("人员") End IfEnd Select