以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  BeforeClose有关掉窗口的代码，一点系统卡一会后直接退出  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126824)
--  作者：huhu
--  发布时间：2018/10/29 18:05:00
--  BeforeClose有关掉窗口的代码，一点系统卡一会后直接退出
BeforeClose有关掉窗口的代码，系统卡一会后直接退出

Dim bh As String = Tables("正式版本").Current("编号")
Dim csm As String = Tables("正式版本").Current("测试组名")
Dim csmbh = csm & "\\" & bh
Dim ftp As New FtpClient
Dim dls As List(of String)
ftp.Host="192.168.1.35"
ftp.Account = "tester"
ftp.Password = "tester"
Dim lj As String = Tables("正式版本").Current("发布目录")
If ftp.GetFileList(lj).Count < 1 Then
    ftp.DeleteDir(lj)
End If
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
If lvw.Rows.Count < 1 Then
    Tables("正式版本").Current("发布目录") = Nothing
End If
ftp.Close
Forms("版本发布").close
--  作者：有点甜
--  发布时间：2018/10/29 18:19:00
--  

删除代码

 

Forms("版本发布").close