专家坐堂-（求助急）如何设置，使在某一事件发生前出现一个确认框（确认或取消）Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  （求助急）如何设置，使在某一事件发生前出现一个确认框（确认或取消）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=10308)

--  作者：faelan
--  发布时间：2011/5/29 21:38:00
--  （求助急）如何设置，使在某一事件发生前出现一个确认框（确认或取消）
是设计在表属性事件 B栏的第二项中。使得当我选择“是否”的选项时，弹出一个确认框（确定或取消）

--  作者：狐狸爸爸
--  发布时间：2011/5/29 22:25:00
--
不知道你问的是什么

--  作者：程兴刚
--  发布时间：2011/5/30 0:52:00
--

MessageBox.Show("您需要的是这样？", "提示", MessageBoxButtons.OKCancel)

--  作者：faelan
--  发布时间：2011/5/30 23:23:00
--

If e.DataCol.Name = "是否还原到学生情况表" Then

With Tables("历史学生学生情况表")

For i As Integer = .BottomRow To .TopRow Step -1

Dim r1 As Row = .Rows(i)

Dim r2 As Row = Tables("学生情况表").AddNew

For Each c As Col In .Cols

r2("学号") = r1("学号")

r2("姓名") = r1("姓名")

r2("性别") = r1("性别")

r2("现居住地址") = r1("现居住地址")

r2("职务") = r1("职务")

Next

r1.Delete()

Next

End With

End If

如何填写编码使这个事件发生前弹出一个确认框？

MessageBox.Show("您需要的是这样？", "提示", MessageBoxButtons.OKCancel)

上面这个不行

--  作者：hhbb
--  发布时间：2011/5/31 6:08:00
--


If e.DataCol.Name = "是否还原到学生情况表" Then
   Dim Result As DialogResult
   Result = MessageBox.Show("確定嗎?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
   If Result = DialogResult.Yes Then
   With Tables("历史学生学生情况表")
   For i As Integer = .BottomRow To .TopRow Step -1
   Dim r1 As Row = .Rows(i)
   Dim r2 As Row = Tables("学生情况表").AddNew
   For Each c As Col In .Cols
   r2("学号") = r1("学号")
   r2("姓名") = r1("姓名")
   r2("性别") = r1("性别")
   r2("现居住地址") = r1("现居住地址")
   r2("职务") = r1("职务")
   Next
   r1.Delete()
   Next
   End With
   End If
End If