以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]页面集合控件绑定关联表如何记录操作日志 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95595) |
-- 作者:happy_gile -- 发布时间:2017/1/24 19:53:00 -- [求助]页面集合控件绑定关联表如何记录操作日志 窗口中的页面集合控件绑定关联表,对关联表进行操作,不记录操作日志? |
-- 作者:happy_gile -- 发布时间:2017/1/25 6:19:00 -- |
-- 作者:有点蓝 -- 发布时间:2017/1/25 9:04:00 -- 操作日志的代码是怎样的?在什么表的什么事件? |
-- 作者:happy_gile -- 发布时间:2017/1/25 11:43:00 -- 正常表操作都可以记录,只是在窗口中的不记录 |
-- 作者:happy_gile -- 发布时间:2017/1/25 11:46:00 -- 全局表事件 DataColChanged If e.DataTable.Name <> "数据操作日志" And e.DataTable.Name <> "登录日志" Then If e.DataRow.RowState = 2 Then Return Else Dim dr As DataRow = DataTables("数据操作日志").AddNew dr("ID") = e.DataRow("_Identify") dr("用户") = _UserName dr("涉及表") = e.DataTable.Name dr("涉及列") = e.DataCol.Name dr("计算机名") = System.Net.Dns.GetHostName \'获得本机的机器名 dr("时间") = Date.Now dr("操作") = """" & e.OldValue & """ 改成了 """ & e.NewValue & """" Dim str As String = "" For Each c As DataCol In e.DataTable.DataCols If c.name = e.DataCol.name Then str + = c.name & "=" & e.oldvalue &"|" Else str += c.Name & "=" & e.DataRow(c.Name) & "|" End If Next dr("原行数据") = str End If End If 项目事件 MainTableChanged For Each dt As DataTable In DataTables dt.GlobalHandler.DataColChanged = True dt.GlobalHandler.DataRowAdded = True dt.GlobalHandler.DataRowDeleting = True dt.GlobalHandler.DrawCell = True Next
|
-- 作者:有点蓝 -- 发布时间:2017/1/25 11:48:00 -- 只是说有问题没有意义。麻烦给出具体的能解决问题的内容,比如截图,比如代码,比如例子 |
-- 作者:happy_gile -- 发布时间:2017/1/25 12:14:00 -- 不好意思??,原因找到了,没对操作日志表进行保存 |