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
加好友 
发短信
Post By：2018/10/29 18:05:00 [只看该作者]
