主题：[求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死

请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死,我就想在一个完成按钮里给一个表的行循环赋上值然后关闭,点完成老卡死狐表,代码如下:

执行下面代码。如果还有问题，去看看你beforeClose、afterClose事件写了什么代码。

If Tables("签单返回_table2").Current Is Nothing Then
    e.Form.Close
Else
    Dim i As Integer = 0
    systemready = False
    For i = 0 To Tables("签单返回_table2").Rows.Count -1
        Tables("签单返回_Table2").rows(i)("签单返回情况") = Forms("签单返回").Controls("ComboBox1").value
        Tables("签单返回_Table2").Rows(i)("签单返回日期") = Forms("签单返回").Controls("DateTimePicker1").value
    Next
    systemready = True
    e.Form.Close
End If

老师,这个还是关不掉,我的窗口两个事件里面也没有写代码,但是在用户界面我如果点了完成,窗口不关掉,然后我切换到主窗口他就自己关掉了,这什么情况

做个例子发上来测试。