[求助]系统增加删除行日志求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]系统增加删除行日志求助

共有4187人关注过本帖树形打印复制链接主题：[求助]系统增加删除行日志求助

abc2363360

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00

[求助]系统增加删除行日志求助 发帖心情

Post By：2017/1/4 15:54:00 [显示全部帖子]

我是小白有些问题麻烦大神帮忙：

问题1：DataTables("表A").GlobalHandler.DataColChanged = True 这句帮我修改为对所有表有效

问题2：麻烦大神参考求助项目里面的操作日志，帮我写增加、删除行日志；删除行需要好像操作日志那样原行数据要提取出来。

问题3：窗口1

下载信息 [文件大小：下载次数： ]
点击浏览该文件:系统增加删除行日志求助.rar

有个复制资料按钮点击后按以下格式在后台复制数据，我在其他地方点粘贴可以把刚才复制的数据粘贴出去。

后台复制资料模板：

--------------------------------------

第一列：提取表A第一列当前行数据

第二列：提取表A第二列当前行数据

“固定格式一句话，不是提取表格内容”

--------------------------------------

abc2363360

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00

感谢大神

Post By：2017/1/4 16:09:00 [显示全部帖子]

感谢大神

abc2363360

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00

请问增加行是在全局表事件DataRowAdded中填写吗？ 发帖心情

Post By：2017/1/4 16:23:00 [显示全部帖子]

请问增加行是在全局表事件DataRowAdded中填写吗？为什么我复制上去提示未知错误？

abc2363360

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00

我是复制下面代码到全局表事件DataRowAdded中 发帖心情

Post By：2017/1/4 16:46:00 [显示全部帖子]

If e.DataTable.Name <> "系统数据操作日志表" Then
    If e.DataRow.RowState = 2 Then
        Return
    Else
        Dim dr As DataRow = DataTables("系统数据操作日志表").AddNew
        dr("ID") = e.DataRow("_Identify")
        dr("用户") = User.Name
        dr("涉及表") = e.DataTable.Name
        'dr("涉及列") = e.DataCol.Name
        dr("涉及行") = e.DataRow("_Identify")
        dr("时间") = Date.Now
        dr("操作") = "增加了一行"
        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