加一列【备注】列,dataColchanged事件写代码
If e.DataCol.name = "第一列" Then Dim str As String = e.DataRow("备注") str = str & iif(str > "", vbcrlf, "") & Date.Now & " " & user.name & " 把值[" & e.oldValue & "]修改成[" & e.NewValue & "]" e.DataRow("备注") = strEnd If