以文本方式查看主题

-  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=87840)

--  作者:lk15502
--  发布时间:2016/7/21 8:01:00
--  关于日志
如何把删除行的信息,写到日志;还有在表中有一个“”库存时间“”的列,根据入库时间而来,每天打开项目自动更新,日志会记录所有的有关变动信息,怎么不记录到日志,
--  作者:Hyphen
--  发布时间:2016/7/21 9:01:00
--  
1.DataRowDeleting事件记录:http://www.foxtable.com/webhelp/scr/0633.htm

2.放出您的代码看看。如果是表达式列不会触发DataColChanged事件

--  作者:lk15502
--  发布时间:2016/7/21 9:11:00
--  
我放在datarowdeleted事件中,每次都记录时间,其他都是空的
\'Select Case  e.DataTable.Name 
\'Case  "数据操作日志" 
\'Case Else
    \'Dim dr As DataRow = DataTables("数据操作日志").AddNew()
    \'Select Case e.DataTable.name
        \'Case "入库表"
            \'dr("用户") = User.Name
            \'dr("涉及表") = e.DataTable.Name
            \'dr("涉及行") = e.DataRow("_Identify")
            \'dr("时间") = Date.Now
            \'dr("涉及编号") = e.DataRow("入库编号")
            \'dr("操作") = "删除行"
        \'Case "库存表"
            \'dr("用户") = User.Name
            \'dr("涉及表") = e.DataTable.Name
            \'dr("涉及行") = e.DataRow("_Identify")
            \'dr("时间") = Date.Now
            \'dr("涉及编号") = e.DataRow("入库编号")
            \'dr("操作") = "删除行"
        \'Case "出库表"
            \'dr("用户") = User.Name
            \'dr("涉及表") = e.DataTable.Name
            \'dr("涉及行") = e.DataRow("_Identify")
            \'dr("时间") = Date.Now
            \'dr("涉及编号") = e.DataRow("出库编号")
            \'dr("操作") = "删除行"
    \'End Select
    \'
\'End Select

--  作者:lk15502
--  发布时间:2016/7/21 9:12:00
--  
全局表事件中
--  作者:大红袍
--  发布时间:2016/7/21 9:18:00
--  

写到DataRowDeleting事件,不是DataRowDeleted


--  作者:lk15502
--  发布时间:2016/7/21 11:59:00
--  
还有在表中有一个“”库存时间“”的列,根据入库时间而来,每天打开项目自动更新,日志会记录所有的有关变动信息,怎么不记录到日志,
--  作者:大红袍
--  发布时间:2016/7/21 12:18:00
--  
以下是引用lk15502在2016/7/21 11:59:00的发言:
还有在表中有一个“”库存时间“”的列,根据入库时间而来,每天打开项目自动更新,日志会记录所有的有关变动信息,怎么不记录到日志,

 

SystemReady = False

 

\'你自动更新的代码

 

SystemReady = True


--  作者:lk15502
--  发布时间:2016/7/21 13:58:00
--  
是不是这样就可以了,加了:datatables("库存表“).save  因为有录入窗口,有行状态的比较不保存,不能关闭

systemready = False
DataTables("库存表").DataCols("入库日期").RaiseDataColChanged()
systemready = True
DataTables("库存表").save

--  作者:大红袍
--  发布时间:2016/7/21 14:15:00
--  
8楼那样写代码,有什么问题?
--  作者:lk15502
--  发布时间:2016/7/21 14:26:00
--  
目前没有发现问题