以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求一段代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49529)
--  作者：wealthwind
--  发布时间：2014/4/19 14:42:00
--  求一段代码
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
--  作者：Bin
--  发布时间：2014/4/19 14:46:00
--  
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)
    With Tables("个案申请")
    If .Current IsNot Nothing Then
        .Current.Delete
    End If
End With
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If