datacolchanged事件
Select Case e.DataCol.Name Case "A列","B列","C列","D列","E列" e.DataRow("最后修改人") = user.name e.DataRow("最后修改时间") = Date.now e.DataRow("修改内容记录") = user.name & "在" & Date.now & "把列【" & e.DataCol.name & "】值【" & e.OldValue & "】修改成【" & e.NewValue & "】" & vbcrlf & e.DataRow("修改内容记录")End Select