代码写在DataColchanged事件
If e.DataCol.Name = "单价" Then e.DataRow("Log") = User.Name & " " & Date.NowEnd If