专家坐堂-[求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119904)

--  作者：Devil
--  发布时间：2018/6/3 21:16:00
--  [求助]请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死
请老师帮忙看看我这个代码运行怎么关闭不了窗口啊,老卡死,我就想在一个完成按钮里给一个表的行循环赋上值然后关闭,点完成老卡死狐表,代码如下:
If Tables("签单返回_table2").Current Is Nothing Then
e.Form.Close
Else
Dim i As Integer = 0
Dim ii As Integer
For ii = 0 To Tables("签单返回_table2").Rows.Count -1
Tables("签单返回_Table2").rows(i)("签单返回情况") = Forms("签单返回").Controls("ComboBox1").value
Tables("签单返回_Table2").Rows(i)("签单返回日期") = Forms("签单返回").Controls("DateTimePicker1").value
If i = Tables("签单返回_table2").Rows.Count -1 Then
Exit For
e.Form.Close
End If
Next
End If

--  作者：yclz888
--  发布时间：2018/6/3 21:21:00
--

If Tables("签单返回_table2").Current Is Nothing Then

e.Form.Close

Else

    Dim ii As Integer

For ii = 0 To Tables("签单返回_table2").Rows.Count -1

Tables("签单返回_Table2").rows(i)("签单返回情况") = Forms("签单返回").Controls("ComboBox1").value

Tables("签单返回_Table2").Rows(i)("签单返回日期") = Forms("签单返回").Controls("DateTimePicker1").value

        ii=ii+1

    Next

    e.Form.Close

End If

--  作者：有点甜
--  发布时间：2018/6/3 21:22:00
--

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

--  作者：Devil
--  发布时间：2018/6/3 21:37:00
--
老师,这个还是关不掉,我的窗口两个事件里面也没有写代码,但是在用户界面我如果点了完成,窗口不关掉,然后我切换到主窗口他就自己关掉了,这什么情况

--  作者：有点甜
--  发布时间：2018/6/3 21:39:00
--
做个例子发上来测试。