- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于PopupForm类型的窗口（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78140)
-- 发布时间：2015/12/2 21:53:00
-- [求助]关于PopupForm类型的窗口（已解决）
如何用PopupForm类型的窗口来替换MessageBox对话框
Dim Result As DialogResult = MessageBox.Show("是否删除本批次模拟数据", "提示", MessageBoxButtons.YesNo)
If Result = DialogResult.Yes Then
DataTables("模拟批次").DeleteFor("日期 = \'"& rq &"\' and 班组 = \'"& bz &"\' and 批次 = \'"& pcbh &"\'")
Tables("模拟批次").AutoSizeCols()
DataTables("模拟批次").Save()
End If
[此贴子已经被作者于2015/12/3 10:05:01编辑过]
-- 发布时间：2015/12/2 22:22:00
--
你可以做一个 PopupForm 窗口，加入 【是】【否】按钮。
afterLoad事件
e.form.baseform.showdialog
【是按钮】
vars("result") = "Yes"
e.Form.Close
【否按钮】
vars("result") = "No"
e.Form.Close
--------------------------调用代码
Forms("窗口1").Open
Dim Result As DialogResult = vars("result")
If Result = "Yes" Then
DataTables("模拟批次").DeleteFor("日期 = \'"& rq &"\' and 班组 = \'"& bz &"\' and 批次 = \'"& pcbh &"\'")
Tables("模拟批次").AutoSizeCols()
DataTables("模拟批次").Save()
End If
-- 发布时间：2015/12/3 9:28:00
--
谢谢大红袍老师的回复，请问调用代码要放在哪个位置？请指教，谢谢！！
-- 发布时间：2015/12/3 9:35:00
--
你原来代码写在哪里，就写在哪里。
[此贴子已经被作者于2015/12/3 9:35:02编辑过]
-- 发布时间：2015/12/3 9:47:00
--
出现错误提示，如何解决，请大红袍老师指教，谢谢！！
此主题相关图片如下：捕获4.png
-- 发布时间：2015/12/3 10:00:00
--
Forms("窗口1").Open
Dim Result As String = vars("result")
If Result = "Yes" Then
DataTables("模拟批次").DeleteFor("日期 = \'"& rq &"\' and 班组 = \'"& bz &"\' and 批次 = \'"& pcbh &"\'")
Tables("模拟批次").AutoSizeCols()
DataTables("模拟批次").Save()
End If
-- 发布时间：2015/12/3 10:05:00
--
问题解决了，谢谢大红袍老师的耐心指教，衷心感谢！！