主题：[求助]对话框没有关闭

问题描述：
遍历Tables("批量增加_table1")中复选框勾选的行，将勾选行的列值写入其他窗口，具体如下：
当没有勾选时，提示是否勾选。
问题出在有勾选时，仍然出现上述对话窗口提示，请老师帮助看看是哪里的问题？

增加一个问题：下面的代码，有几次如果目标窗口为空表时，新增不了行，是什么原因？
谢谢！

For Each r1 As Row In Tables("批量增加_table1")
    If r1.Checked = False Then
        Dim Result As DialogResult
        Result = MessageBox.Show("你没有选中数据,请勾选行头复选框!"& vbcrlf &"是---返回"& vbcrlf &"否---关闭", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            Return
        Else
            Forms("批量增加").close
        End If
    Else
        If Forms("送达回证编辑").Opened Then
            Dim t As Table = Forms("送达回证编辑").Controls("Table1").Table
            For Each r As Row In Tables("批量增加_table1").GetCheckedRows
                Dim r2 As Row  = t.AddNew
                r2("案号") = r("案号")
                r2("填发人") = r("承办人")
                r2("送达人") = r("书记员")
                Tables("送达回证编辑_Table1").Current("制作日期") = Date.Now
                Tables("送达回证编辑_table1").Sort = "制作日期,案号"
            Next
        ElseIf Forms("传piao编辑").Opened Then
            Dim t As Table = Forms("传piao编辑").Controls("Table1").Table
            For Each r As Row In Tables("批量增加_table1").GetCheckedRows
                Dim r2 As Row  = t.AddNew
                r2("案号") = r("案号")
                r2("审判员") = r("承办人")
                r2("书记员") = r("书记员")
                Tables("传piao编辑_Table1").Current("制作日期") = Date.Now
                Tables("传piao编辑_table1").Sort = "制作日期,案号"
            Next       
        Else
            Return
        End If
    End If
Next
Forms("批量增加").close