以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]修改标记问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75150)

--  作者:pcxjxjhkw
--  发布时间:2015/9/28 18:47:00
--  [求助]修改标记问题
如何用代码:显示修改标记或取消?谢谢
--  作者:大红袍
--  发布时间:2015/9/28 19:22:00
--  
MarkModifedCell = True
Tables("表A").Refresh

--  作者:pcxjxjhkw
--  发布时间:2015/9/29 8:59:00
--  

老师,只针对某一表,不是所有表。


Tables("表A").MarkModifedCell = True   报错
  

 


--  作者:大红袍
--  发布时间:2015/9/29 9:08:00
--  

不行。要不你就用drawcell自己做。

 

e.Table.DataTable.AddUserStyle("样式1", Color.Red, Color.Red)

If e.text <> e.Row.DataRow.OriginalValue(e.Col.name) Then
    e.style = "样式1"
End If


--  作者:wyz20130512
--  发布时间:2016/1/9 13:49:00
--  
正在做的一个项目也碰上了类似的问题?论坛上一搜有了。可按老师的代码报错了,请老师指点? 

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160109134118.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160109133931.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2016/1/9 14:07:37编辑过]

--  作者:Hyphen
--  发布时间:2016/1/9 14:27:00
--  
If e.Row(e.Col.Name) <> e.Row.DataRow.OriginalValue(e.Col.Name) Then
    
e.Style = "样式1"
End If


--  作者:wyz20130512
--  发布时间:2016/1/9 19:51:00
--  回复:(Hyphen)If e.Row(e.Col.Name) <>...
效果达到了,十分地感谢!