以文本方式查看主题
- 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=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)
|