Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 自动复制行到其他表


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

主题：[求助] 自动复制行到其他表
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/19 20:52:00 [显示全部帖子]

1、参考 http://www.foxtable.com/help/topics/2292.htm

 

2、参考

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:操作日志.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 10:19:00 [显示全部帖子]

以下是引用wumingrong1在2015-1-20 10:15:00的发言：
怎样打开 操作日志.table  文件？

 

去下载一个商业版foxtable安装。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 19:07:00 [显示全部帖子]

 呃，如果可以出现 复制表 的界面，都是能复制的，不会存在你这种情况。

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 19:42:00 [显示全部帖子]


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 20:12:00 [显示全部帖子]

If e.DataRow.RowState <> DataRowState.Added Then
    Dim dr As DataRow = DataTables("日志系统注册信息表").AddNew
   
    dr("分公司") = e.DataRow("分公司")
    dr("姓名") = e.DataRow("姓名")
    dr("所属部门") = e.DataRow("所属部门")
    dr("联系电话") = e.DataRow("联系电话")
    dr("电脑类别") = e.DataRow("电脑类别")
    dr("机器码") = e.DataRow("机器码")
    dr("使用授权") = e.DataRow("使用授权")
    dr("启用日期") = e.DataRow("启用日期")
    dr("截止日期") = e.DataRow("截止日期")
    dr("操作记录_增加日期") = e.DataRow("操作记录_增加日期")
    dr("操作记录_修改人员") = e.DataRow("操作记录_修改人员")
    dr("操作记录_修改日期") = e.DataRow("操作记录_修改日期")
   
    dr("日志记录_主键") = e.DataRow("_Identify")
    dr("日志记录_操作类型") ="修改数据"
   
   
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 20:43:00 [显示全部帖子]

If e.DataRow.RowState = 2 OrElse e.DataRow.RowState = DataRowState.Modified Then
    Dim dr As DataRow = DataTables("日志系统注册信息表").AddNew
   
    dr("分公司") = e.DataRow("分公司")
    dr("姓名") = e.DataRow("姓名")
    dr("所属部门") = e.DataRow("所属部门")
    dr("联系电话") = e.DataRow("联系电话")
    dr("电脑类别") = e.DataRow("电脑类别")
    dr("机器码") = e.DataRow("机器码")
    dr("使用授权") = e.DataRow("使用授权")
    dr("启用日期") = e.DataRow("启用日期")
    dr("截止日期") = e.DataRow("截止日期")
    dr("操作记录_增加日期") = e.DataRow("操作记录_增加日期")
    dr("操作记录_修改人员") = e.DataRow("操作记录_修改人员")
    dr("操作记录_修改日期") = e.DataRow("操作记录_修改日期")
   
    dr("日志记录_主键") = e.DataRow("_Identify")
    dr("日志记录_操作类型") ="修改数据"
   
   
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 21:04:00 [显示全部帖子]

 你可以把代码写到BeforeSaveDataRow事件

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 21:17:00 [显示全部帖子]

以下是引用wumingrong1在2015-1-20 21:11:00的发言：
那它不就变成记录修改后的内容 而不是记录修改前的内容啦

 

If e.DataRow.RowState = 2 OrElse e.DataRow.RowState = DataRowState.Modified Then
    Dim dr As DataRow = DataTables("日志系统注册信息表").Find("日志记录_主键 = " & e.DataRow("_Identify"))
    If dr Is Nothing Then
        dr = DataTables("日志系统注册信息表").AddNew
        dr("分公司") = e.DataRow("分公司")
        dr("姓名") = e.DataRow("姓名")
        dr("所属部门") = e.DataRow("所属部门")
        dr("联系电话") = e.DataRow("联系电话")
        dr("电脑类别") = e.DataRow("电脑类别")
        dr("机器码") = e.DataRow("机器码")
        dr("使用授权") = e.DataRow("使用授权")
        dr("启用日期") = e.DataRow("启用日期")
        dr("截止日期") = e.DataRow("截止日期")
        dr("操作记录_增加日期") = e.DataRow("操作记录_增加日期")
        dr("操作记录_修改人员") = e.DataRow("操作记录_修改人员")
        dr("操作记录_修改日期") = e.DataRow("操作记录_修改日期")
       
        dr("日志记录_主键") = e.DataRow("_Identify")
        dr("日志记录_操作类型") ="修改数据"
       
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 21:36:00 [显示全部帖子]

If e.DataRow.RowState = 2 OrElse e.DataRow.RowState = DataRowState.Modified Then
    Dim dr As DataRow = DataTables("日志系统注册信息表").Find("日志记录_主键 = " & e.DataRow("_Identify"))
    If dr Is Nothing Then
        dr = DataTables("日志系统注册信息表").AddNew
    End If

    dr("分公司") = e.DataRow("分公司")
    dr("姓名") = e.DataRow("姓名")
    dr("所属部门") = e.DataRow("所属部门")
    dr("联系电话") = e.DataRow("联系电话")
    dr("电脑类别") = e.DataRow("电脑类别")
    dr("机器码") = e.DataRow("机器码")
    dr("使用授权") = e.DataRow("使用授权")
    dr("启用日期") = e.DataRow("启用日期")
    dr("截止日期") = e.DataRow("截止日期")
    dr("操作记录_增加日期") = e.DataRow("操作记录_增加日期")
    dr("操作记录_修改人员") = e.DataRow("操作记录_修改人员")
    dr("操作记录_修改日期") = e.DataRow("操作记录_修改日期")
   
    dr("日志记录_主键") = e.DataRow("_Identify")
    dr("日志记录_操作类型") ="修改数据"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/1/20 21:45:00 [显示全部帖子]

 无语，你到底想表达什么啊
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 6 次数据查询