主题：帮忙修改下代码

If DataTables("会员信息表").HasChanges Then
DataTables("会员信息表").save
 End  If
Forms("会员信息表").close

 

 

我想把这个修改成  如果改变的话 弹出一个对话框 提示  是否保存 或者取消

如果 选是

就保存关闭

 

如果选否

就不保存

 

如果选取消

就不关闭然后再回到数据表

 

对照帮助修改的一直提示是错误

不是 提示“END IF" 就是提示 ”datatableS"

 

请高手帮忙写全代码

学习学习

应该这样就可以了。

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

这个执行了，连关闭都关闭不了了啊，没反应

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

是BUTTON按钮 名称是 关闭

然后再click里面写的

 

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

高手

我把项目给你看看吧

那段代码输进去后 就直接关闭了

不提示

 

麻烦您了

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

就是点关闭后

让它提示是 YES NO 和取消

YES 直接关闭保存

NO 直接关闭不保存

取消  就直接取消

这段代码的意思是:  表有无修改? 有就提示是否保存, 然后关闭! 如果没有修改直接关闭 !

 

 

林女侠 写个注释呗!

不好意思哈

嗯

是我没有搞明白

 

不好意思哈

我是菜鸟

多谢各位的帮助了

这个刚学代码有点小头晕

 

 

 这次，行不？

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