- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关闭Messagebox (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130797)
-- 发布时间：2019/2/1 13:41:00
-- 关闭Messagebox
Dim Result
As DialogResult
Result
= MessageBox.Show("结转成功！继续结转？", "提示", MessageBoxButtons.YesNo,
MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
..........
Else
Forms("A").Open()
End
if
---------------------
选“yes”,关闭MessageBox,留在当前页面
代码怎么写？
-- 发布时间：2019/2/1 13:46:00
--
不做任何操作即可
If Result = DialogResult.Yes Then
Else
Forms("A").Open()
End if
Else
Forms("A").Open()
End if
或者
If Result = DialogResult.No Then
Forms("A").Open()
End if
Forms("A").Open()
End if
-- 发布时间：2019/2/1 14:05:00
--
哦，我想的是操作保存一个数据少的表
Dim Result As DialogResult
Result = MessageBox.Show("结转成功！继续结转？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("表A").Save()
Result = MessageBox.Show("结转成功！继续结转？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
DataTables("表A").Save()
Else
Forms("A").Open()
End if
Forms("A").Open()
End if
-- 发布时间：2019/2/1 14:08:00
--
3楼代码有什么问题？
-- 发布时间：2019/2/1 14:13:00
--
以为必须有操作