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


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

主题：[求助]系统增加删除行日志求助
帅哥哟，离线，有人找我吗？
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第二列当前行数据
 “固定格式一句话，不是提取表格内容”
--------------------------------------
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/4 15:58:00 [只看该作者]

1、

 

For Each dt As DataTable in DataTables

    dt.GlobalHandler.DataColChanged = True

Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/4 16:00:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/4 16:06: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("操作") = "增加了一行"
    End If
End If

 

删除行代码

 

If e.DataTable.Name <> "系统数据操作日志表"  Then
    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
        str += c.Name & "=" & e.DataRow(c.Name) & "|"
    Next
    dr("原行数据") = str
End If

[此贴子已经被作者于2017/1/4 16:47:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
abc2363360
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00 		感谢大神  发帖心情 Post By：2017/1/4 16:09:00 [只看该作者]

感谢大神

 回到顶部
帅哥哟，离线，有人找我吗？
abc2363360
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00 		请问增加行是在全局表事件DataRowAdded中填写吗？  发帖心情 Post By：2017/1/4 16:23:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/4 16:38:00 [只看该作者]

认认真真看4楼，那是两段代码。

 回到顶部
帅哥哟，离线，有人找我吗？
abc2363360
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/4 16:48: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("操作") = "增加了一行"
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
abc2363360
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：139 积分：1145 威望：0 精华：0 注册：2016/11/22 8:50:00 		前面2点都处理好了，感谢，还有问题3  发帖心情 Post By：2017/1/4 16:59:00 [只看该作者]

前面2点都处理好了，感谢，还有问题3 

将字符串添加到剪贴板中。

示例

Dim s As String = "我喜欢Foxtable"
ClipBoard.SetText(s)
　

这个只是指定内容添加到剪贴板，我还需要获取表A某列当前行的数据，然后把2个内容一起添加到剪贴板，麻烦大神帮忙写一下代码！
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询