帮忙修改下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙修改下代码

共有10032人关注过本帖树形打印复制链接主题：帮忙修改下代码

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/19 15:35:00 [显示全部帖子]

应该这样就可以了。

If DataTables("会员信息表").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("会员信息表").save
        Forms("会员信息表").close
    End If
End If

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/19 15:45:00 [显示全部帖子]

楼主，你是在什么事件里写的这写代码？

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/19 16:01:00 [显示全部帖子]

If DataTables("会员信息表").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("会员信息表").save
    End If
End If

Forms("会员信息表").close

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/19 16:19:00 [显示全部帖子]

这次，行不？

If DataTables("会员信息表").HasChanges Then   '如果修改了
    Dim Result As DialogResult
    Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)   '弹出对话框
    If Result = DialogResult.Yes Then   '选择是
        DataTables("会员信息表").save
        Forms("会员信息表").close
    Else If Result = DialogResult.No Then   '选择否
        Forms("会员信息表").close
    End If
End If

[此贴子已经被作者于2012-11-19 16:20:24编辑过]

lin_hailun

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

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/11/19 16:40:00 [显示全部帖子]

呵呵，保存肯定是没有保存的，但是你修改的状态还是存在的，需要撤销修改。

If DataTables("会员信息表").HasChanges Then
    Dim Result As DialogResult
    Result = MessageBox.Show("需要保存吗?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        DataTables("会员信息表").save
        Forms("会员信息表").close
    Else If Result = DialogResult.No Then
        DataTables("会员信息表").RejectChanges
        Forms("会员信息表").close
    End If
End If

下一主题 >> << 上一主题

主题：帮忙修改下代码