-- 代码问题
If e.DataCol.name <> "记录添加时间" AndAlso e.DataCol.name <> "记录添加人" Then
e.DataRow("记录添加时间")=Date.now
e.DataRow("记录添加人")=_username
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("姓名")
End If
End If
End If
End If