在多用户环境下,我的要求是当有用户对表格某一行的数据内容进行修改后,我需要在这一行的备注栏里记载下所修改的列名和修改前的内容,并把备注栏的背景设为红色。我在表属性的DataColChanged事件里写入下面的代码没有报错,但也没有效果。
select case
Case "列名"
Dim clr As Color = Color.Red
If e.Newvalue <> e.oldvalue Then
e.DataRow("备注").BackColor = clr
e.DataRow("备注") = e.DataCol.name & ":" & e.oldValue
End If
end select
又想过在表属性的AfterEdit事件里按说明书写入代码:
If e.Col.Name =
"列名"
Then
e.Row("备注") = User.Name & " " & Date.Now
End
If
但这里没办法获取到修改前的数据。
还有大佬在么,帮我看看,对怎样判断是否对数据进行了修改这里挺迷惑的。
[此贴子已经被作者于2018/11/13 0:17:17编辑过]