以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]操作日志里怎么除开某些辅助列的变化记录  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75232)
--  作者：leopain
--  发布时间：2015/9/30 16:42:00
--  [求助]操作日志里怎么除开某些辅助列的变化记录
老师
我在全局表的datacolchanged事件里写了下面的代码
但是我有些表里套用辅助列绘制鼠标进入单元格时的样式
但是有个弊端就是 日志表里会把辅助列的数据变化也记录进来
有没有办法除开这些列的记录呢？


If e.DataTable.Name <> "操作日志" Then
    Dim dr As DataRow = DataTables("操作日志").AddNew
    dr("用户") = User.Name
    dr("涉及表") = e.DataTable.Name
    dr("涉及列") = e.DataCol.Name
    dr("涉及行") = e.DataRow("_Identify")
    dr("操作时间") = Date.Now
    dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"
    dr("原始数据") = e.OldValue
End If
--  作者：大红袍
--  发布时间：2015/9/30 16:43:00
--  

辅助列，列名加上前缀，比如 辅助_排序

 

If e.DataTable.Name <> "操作日志" AndAlso e.DataCol.Name Like "辅助_*" = False Then
    Dim dr As DataRow = DataTables("操作日志").AddNew
    dr("用户") = User.Name
    dr("涉及表") = e.DataTable.Name
    dr("涉及列") = e.DataCol.Name
    dr("涉及行") = e.DataRow("_Identify")
    dr("操作时间") = Date.Now
    dr("操作") = """" & e.OldValue &  """ 改成了 """ & e.NewValue & """"
    dr("原始数据") = e.OldValue
End If