Foxtable(狐表)用户栏目专家坐堂 → 创建修改日志


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

主题:创建修改日志

帅哥哟,离线,有人找我吗?
有点甜
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/21 21:25:00 [只看该作者]

以下是引用xjc620在2014-12-21 21:17:00的发言:
那样的话会不会我的相互覆盖啊

 

你可以做多个日志,一个用户命名为一个日志,比如 Output.Logs(User.Name & "修改日志").Add


 回到顶部
帅哥哟,离线,有人找我吗?
xjc620
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/12/21 21:37:00 [只看该作者]

能不能把日志记录在表里,创建一个日志表,有修改日志列,删除日志列,登录日志列,然后把各用户的各表的修改日志保存在修改日志列里,删除日志保存在删除日志列里.怎么做
[此贴子已经被作者于2014-12-21 21:37:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/21 21:44:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
xjc620
  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/12/21 22:20:00 [只看该作者]

这个为什么切换表时弹出窗口显示16

If e.DataTable.Name <> "日志" Then
    If e.DataRow.RowState = 2 Then
MessageBox.Show(e.DataRow.RowState)
        Return
    Else
MessageBox.Show(e.DataRow.RowState)
        Dim dr As DataRow = DataTables("日志").AddNew
        dr("用户") = User.Name
        dr("时间") = Date.Now
        dr("表名称") = e.DataTable.Name
        dr("列名称") = e.DataCol.Name
        dr("车号")= e.DataRow("车号")
        dr("原数据") = "" & e.OldValue & ""
        dr("操作")= " 改成了 "
        dr("现数据") ="" & e.NewValue & ""
 End If
End If
[此贴子已经被作者于2014-12-21 22:20:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/21 22:22:00 [只看该作者]

以下是引用xjc620在2014-12-21 22:20:00的发言:
这个为什么切换表时弹出窗口显示16

 

什么意思啊?


 回到顶部
客人(14.119.*.*)
  36楼


  发帖心情 Post By:2014/12/21 22:23:00 [只看该作者]

MessageBox.Show(e.DataRow.RowState)


 


去掉啊,这么简单还不会?


 回到顶部
帅哥哟,离线,有人找我吗?
xjc620
  37楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/12/21 22:26:00 [只看该作者]


以下内容是专门发给有点甜浏览

就是把数据改完了后弹出窗口.而且切换到当月二保表里弹出一个窗口后,关不掉密码158998
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队数据库.rar
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:日新车队管理系统.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/21 22:38:00 [只看该作者]

 1、看36楼;

 

 2、没有切换和关不掉的情况。


 回到顶部
帅哥哟,离线,有人找我吗?
xjc620
  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:847 积分:5405 威望:0 精华:0 注册:2014/10/27 23:44:00
  发帖心情 Post By:2014/12/21 22:50:00 [只看该作者]


If e.DataTable.Name <> "日志" Then
Dim dr As DataRow = DataTables("日志").AddNew
        dr("用户") = User.Name
        dr("时间") = Date.Now
        dr("表名称") = e.DataTable.Name
        dr("列名称") = e.DataCol.Name
        dr("车号")= e.DataRow("车号")
        dr("原数据") = "" & e.OldValue & ""
        dr("操作")= " 改成了 "
        dr("现数据") ="" & e.NewValue & ""
End If
现在一切换当月二保表就显示,好像当月二保表切换时这个银行_汇款收入自动变的原因.怎么改
MainTableChanged代码
If MainTable.Name = "当月二保" Then
    DataTables("当月二保").DataCols("银行_汇款收入").RaiseDataColChanged()
End If
If Forms("当月二保查找").Opened Then
   Forms("当月二保查找").Controls("TextBox2").value = DataTables("当月二保").DataRows(0)("账户余额")
   Forms("当月二保查找").Controls("TextBox3").value = DataTables("当月二保").DataRows(0)("现金余额")
End If
If Forms("应收款查找").Opened Then
    Forms("应收款查找").Controls("TextBox2").Text =  DataTables("应收款").Compute("Sum(应收金额)")
End If


For Each dt As DataTable In DataTables
    dt.GlobalHandler.DataColChanged = True
    dt.GlobalHandler.DataRowAdded = True
Next

队长 14.12.21 0:00:00 当月二保 Y4913 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 S7887 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 W8783 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 X9738 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 X8877 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 X7115 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 X5937 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 Z6038 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 W9765 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 W9692 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 W9677 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 Z6736 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 U4063 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 Z6027 银行_汇款收入 改成了
队长 14.12.21 0:00:00 当月二保 Z6757/RM79 银行_汇款收入 改成了
[此贴子已经被作者于2014-12-21 22:53:50编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/21 23:07:00 [只看该作者]

 不用改啊,什么问题都没有啊。

 回到顶部
总数 79 上一页 1 2 3 4 5 6 7 8 下一页