Foxtable(狐表)用户栏目专家坐堂 → 关于日志


  共有2449人关注过本帖树形打印复制链接

主题:关于日志

帅哥哟,离线,有人找我吗?
lk15502
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
关于日志  发帖心情 Post By:2016/7/21 8:01:00 [显示全部帖子]

如何把删除行的信息,写到日志;还有在表中有一个“”库存时间“”的列,根据入库时间而来,每天打开项目自动更新,日志会记录所有的有关变动信息,怎么不记录到日志,

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/21 9:12:00 [显示全部帖子]

全局表事件中

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/21 11:59:00 [显示全部帖子]

还有在表中有一个“”库存时间“”的列,根据入库时间而来,每天打开项目自动更新,日志会记录所有的有关变动信息,怎么不记录到日志,

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/21 13:58:00 [显示全部帖子]

是不是这样就可以了,加了:datatables("库存表“).save  因为有录入窗口,有行状态的比较不保存,不能关闭

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

 回到顶部
帅哥哟,离线,有人找我吗?
lk15502
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:706 积分:4908 威望:0 精华:0 注册:2016/5/17 12:03:00
  发帖心情 Post By:2016/7/21 14:26:00 [显示全部帖子]

目前没有发现问题

 回到顶部