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

执行下面代码。如果还有问题，去看看你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