将AfterEdit中的代码改到BeforeSaveDataRow中,
If e.DataRow.IsNull("LOG") Then e.DataRow("LOG") = User.Name & " " & Date.Now & "第一列 变更为:" & e.DataRow("第一列")Else e.DataRow("LOG") = e.DataRow("LOG") & vbcrlf & User.Name & " " & Date.Now & "第一列 变更为:" & e.DataRow("第一列")End If
只有保存后的数据才能算数。