主题：[求助]代码不执行

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