以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Dim Result As DialogResult  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58905)
--  作者：jswjyjf
--  发布时间：2014/10/26 10:53:00
--  Dim Result As DialogResult

Dim Result As DialogResult
Result = MessageBox.Show("执行此操作将导致数据不能恢复!! 确定继续系统初始化?", "提示", MessageBoxButtons.okcancel, MessageBoxIcon.warning)
If Result = DialogResult.Yes Then
    For Each r As Row In Tables("系统数据表").Rows
        If r("选择")=True Then
            DataTables(r("数据表名称")).DataRows.Clear
        End If
    Next
    messagebox.show("数据清空 完成","信息提示")
End If

 

 

按了确定 这段代码中的messagebox.show("数据清空 完成","信息提示") 为何没有出现？
--  作者：有点甜
--  发布时间：2014/10/26 10:55:00
--  
If Result = DialogResult.OK Then
--  作者：jswjyjf
--  发布时间：2014/10/26 10:56:00
--  

多谢