以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码不执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47325)
--  作者：zouxinhao
--  发布时间：2014/3/8 10:01:00
--  [求助]代码不执行

Dim r As DataRow = Tables("表A").Current.DataRow
Dim r1 As Row
Dim Result As DialogResult
MessageBox.Show("订单被删除后将无法恢复,是否删除当前订单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)
If Result=DialogResult.Yes Then
    r("第五列")="10"
    For i As Integer = 0 To Tables("表B").Rows.Count-1
        r1=Tables("表B").Rows(i)
        If r1("第一列")=r("第一列") Then
            r1("第九列")="10"
            r1.Remove
        End If
    Next
    r.Remove
Else
    Return
End If

请问以上代码为什么不执行消息框以后的代码？
--  作者：狐狸爸爸
--  发布时间：2014/3/8 10:03:00
--  

Dim r As DataRow = Tables("表A").Current.DataRow
Dim r1 As Row
Dim Result As DialogResult
Result  = MessageBox.Show("订单被删除后将无法恢复,是否删除当前订单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)
If Result=DialogResult.Yes Then
    r("第五列")="10"
    For i As Integer = 0 To Tables("表B").Rows.Count-1
        r1=Tables("表B").Rows(i)
        If r1("第一列")=r("第一列") Then
            r1("第九列")="10"
            r1.Remove
        End If
    Next
    r.Remove
Else
    Return
End If

 
--  作者：zouxinhao
--  发布时间：2014/3/8 10:05:00
--  
哦，谢谢！
--  作者：lsy
--  发布时间：2014/3/8 10:05:00
--  
Result = MessageBox.Show("订单被删除后将无法恢复,是否删除当前订单?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)