主题：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("数据清空 完成","信息提示") 为何没有出现？