以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  (求助 急)如何设置,使在某一事件发生前出现一个确认框(确认或取消)  (http://foxtable.net/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