以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求判断当前行指定列的内容是否被修改的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84331)

--  作者:xiangfs
--  发布时间:2016/4/28 15:08:00
--  求判断当前行指定列的内容是否被修改的代码
如题,我做了一个查找修改的窗口,其中“取消”按钮的click事件为:判断当前行指定列的内容是否修改,如果被修改,则求恢复修改前的内容,退出窗口;如果没有修改,则直接随出窗口,求代码
--  作者:xiangfs
--  发布时间:2016/4/28 16:17:00
--  
呃,顶起来继续求帮助
--  作者:大红袍
--  发布时间:2016/4/28 16:55:00
--  
Dim r As Row = Tables("表A").Current
If r.DataRow.OriginalValue("第二列") = r("第二列") Then
    msgbox("没修改")
Else
    msgbox("修改了")
    r("第二列") = r.DataRow.OriginalValue("第二列")
End If

--  作者:xiangfs
--  发布时间:2016/4/28 23:03:00
--  
搞定,谢谢图片点击可在新窗口打开查看