datacolchanged事件
If e.DataCol.name = "评语" Then If e.newvalue <> Nothing Then e.DataRow("评语汇总") = Date.now & " " & user.name & ":" & e.newvalue & vbcrlf & e.DataRow("评语汇总") End IfEnd If