以文本方式查看主题

-  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
--  
不好意思??,原因找到了,没对操作日志表进行保存图片点击可在新窗口打开查看