[求助]关于记载输入信息的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于记载输入信息的问题

共有1612人关注过本帖树形打印复制链接主题：[求助]关于记载输入信息的问题

tianwanshui

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

[求助]关于记载输入信息的问题 发帖心情

Post By：2018/11/12 23:19:00 [只看该作者]

在多用户环境下，我的要求是当有用户对表格某一行的数据内容进行修改后，我需要在这一行的备注栏里记载下所修改的列名和修改前的内容,并把备注栏的背景设为红色。我在表属性的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编辑过]

tianwanshui

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

Post By：2018/11/12 23:23:00 [只看该作者]

顺便有个问题请教一下，当在窗口对表格里的数据进行修改的时候，不论是删除还是更改一次性都改不了，同样的操作还进行两次才能把数据改过来，而直接在表格里则没有这个现象，也不知道是哪里出错了。

tianwanshui

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：38 积分：339 威望：0 精华：0 注册：2018/9/29 8:26:00

Post By：2018/11/13 0:53:00 [只看该作者]

已解决，使用OriginalValue方法就好了。

主题：[求助]关于记载输入信息的问题