[求助]为什么界面和数据库里不一样 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]为什么界面和数据库里不一样

共有5136人关注过本帖树形打印复制链接主题：[求助]为什么界面和数据库里不一样

chnfo

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

加好友

发短信

等级：九尾狐帖子：2203 积分：18135 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2014/12/17 14:41:00 [只看该作者]

如果要在保存项目肘，数据库和界面都是新值，该如何处理，我在保存项目事件中加了重置代码，且保存表，似乎无效

有点甜

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

加好友

发短信

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

Post By：2014/12/17 15:23:00 [只看该作者]

以下是引用chnfo在2014-12-17 14:41:00的发言：
如果要在保存项目肘，数据库和界面都是新值，该如何处理，我在保存项目事件中加了重置代码，且保存表，似乎无效

保存两次

For Each dt As DataTable In DataTables
    If dt.DataCols.Contains("ID") AndAlso dt.DataCols.Contains("SysID") Then
        dt.DataCols("SysID").RaiseDataColChanged()
        dt.Save()
    End If
Next

For Each dt As DataTable In DataTables
dt.Save()
Next

chnfo

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

加好友

发短信

等级：九尾狐帖子：2203 积分：18135 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2014/12/17 17:13:00 [只看该作者]

甜兄，试过了，无效。不论放在afterprojectsave还是beforeprojectsave中都无效

有点甜

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

加好友

发短信

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

Post By：2014/12/17 17:17:00 [只看该作者]

我测试没有问题？保存之后，就全部变成了foxtable显示的值了。

chnfo

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

加好友

发短信

等级：九尾狐帖子：2203 积分：18135 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2014/12/17 17:20:00 [只看该作者]

但access表并没变.wl表还是临时号。你保存后打开access看下.难道看你是版主害怕了？要不把你的传上来我学习下子

[此贴子已经被作者于2014-12-17 17:22:35编辑过]

jspta

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

加好友

发短信

等级：七尾狐帖子：1731 积分：11255 威望：0 精华：0 注册：2011/12/15 22:06:00

Post By：2014/12/17 17:31:00 [只看该作者]

不知道为什么都需要在保存前需要先获取编号那，而且还是临时编号最后还是要改正？保存的时候再获取不行？这样减少了很多代码和判断。。

有点甜

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

加好友

发短信

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

Post By：2014/12/17 17:32:00 [只看该作者]

如果是初始化之后，代码这样改看一下。

For Each dt As DataTable In DataTables
    If dt.DataCols.Contains("ID") AndAlso dt.DataCols.Contains("SysID") Then
        dt.DataCols("SysID").RaiseDataColChanged()
    End If
Next

For Each dt As DataTable In DataTables
dt.Save()
Next