| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]表的修改记录 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111783) |
| -- 作者：l1q2lq -- 发布时间：2017/12/29 9:27:00 -- [求助]表的修改记录 Dim jl As DataRow = DataTables("数据修改记录").addnew Select Case jl("修改方式") Case "Added" jl("修改方式") = "增加行" Case "Modified" jl("修改方式") = "修改行" Case Else Return End Select 咨询一下，"Added" "Modified" 分别代表增加和修改，那么删除行怎么定义
|
| -- 作者：有点甜 -- 发布时间：2017/12/29 9:34:00 -- 1、你这段的代码是什么意思？【修改方式】你什么时候赋值的？新增的一行，其值是空的。
2、判断行状态，参考 http://www.foxtable.com/webhelp/scr/0428.htm
|
| -- 作者：l1q2lq -- 发布时间：2017/12/29 9:37:00 -- 写在当前表的表事件里，想要在“修改记录”表里记录当前表的修改痕迹 完整代码是 Dim jl As DataRow = DataTables("修改记录").addnew jl("修改方式") = e.DataRow.RowState jl("序号")=e.DataRow("序号") jl("列号")=e.DataCol.name jl("被修改表")=e.DataTable.name jl("修改者")=user.name jl("修改日期")=Date.now jl("修改前内容")=e.oldValue jl("修改后内容")=e.NewValue Select Case jl("修改方式") Case "Added" jl("修改方式") = "增加行" Case "Modified" jl("修改方式") = "修改行" Case Else Return End Select 现在不知道怎么记录删除行
[此贴子已经被作者于2017/12/29 9:38:16编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/12/29 9:42:00 -- 你要处理datarowDeleting事件，在里面编写事件代码，如
Dim jl As DataRow = DataTables("修改记录").addnew
jl("序号")=e.DataRow("序号")
jl("被修改表")=e.DataTable.name
jl("修改者")=user.name
jl("修改日期")=Date.now
jl("修改方式") = "删除行"
|
| -- 作者：l1q2lq -- 发布时间：2017/12/29 9:52:00 -- 好的 谢谢 |