日志功能设计不起 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日志功能设计不起

共有3358人关注过本帖树形打印复制链接主题：日志功能设计不起

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/4 19:54:00 [显示全部帖子]

改成

If e.DataCol.Name <> "备注" Then

Dim R As Row = Tables("派车记录表.货单跟踪").Addnew()

R("情况说明") &=vbcrlf & user.name & "于" & Date.now & e.OldValue & "修改为" & e.NewValue

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/21 10:10:00 [显示全部帖子]

把行拉高，应该能看到内容。代码没问题。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/21 10:14:00 [显示全部帖子]

http://www.foxtable.com/webhelp/scr/1662.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/19 12:11:00 [显示全部帖子]

刷新的时候，不触发log记录，即可，如

http://www.foxtable.com/webhelp/scr/2218.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/19 12:47:00 [显示全部帖子]

修改代码后测试，请说明你现在遇到什么问题。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/19 12:55:00 [显示全部帖子]

加载之前，判断表格是否全部保存，没有保存的不加载如

If DataTables("表A").HasChanges = false Then '已经保存

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/19 14:40:00 [显示全部帖子]

If DataTables("派车记录表").HasChanges = False Then '已经保存
    SystemReady = False
    try
        CurrentTable.FinishEditing
        CurrentTable.save
        Dim pcid As Integer = DataTables("派车记录表").Compute("Max(_Identify)")
        Dim Filter As String = "[_Identify] > " & pcid
        DataTables("派车记录表").AppendLoad(Filter, False)
        DataTables("派车记录表").loadpage = 0
        '追加数据代码
    Catch ex As Exception
        MessageBox.Show("追加数据失败")
    End Try
    SystemReady = True

End If