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

If Tables("批量增加_table1").GetCheckedRows.count = 0 Then
    Dim Result As DialogResult
    Result = MessageBox.Show("你没有选中数据,请勾选行头复选框!"& vbcrlf &"是---返回"& vbcrlf &"否---关闭", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Return
    Else
        Forms("批量增加").close
        Return
    End If
End If
For Each r1 As Row In Tables("批量增加_table1")
    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
Next
Forms("批量增加").close