DataColchanged
If e.DataCol.Name = "批准" Then
e.DataRow("批准人") = User.Name
e.DataRow("批准日期") = Date.Now
End If