Dim ftp1 As New FtpClient
ftp1.Host="120.198.124.195"
ftp1.Account = "und8042"
ftp1.Password = "und8042ssa"
If ftp1.DeleteFile("\" & e.form.controls("TextBox2").text & "-" & e.form.controls("TextBox3").text & "-" & e.form.controls("TextBox4").text & ".html") = True Then
Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
求执行以上代码后，如果删除完成，则执行以下代码；
With Tables("个案申请")
If .Current IsNot Nothing Then
.Current.Delete
End If
End With
加好友 
发短信
Post By：2014/4/19 14:42:00 [显示全部帖子]
