建议编写datacolchanged事件
Select Case e.DataCol.name Case "A", "B", "C", "D" e.DataRow("Log") = User.Name & " " & Date.Now & " 将" & e.DataCol.name & "从[" & e.oldvalue & "]修改为[" & e.newvalue & "]" & vbcrlf & e.DataRow("Log") End Select