以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师这个FTP里面删除行的时候同时删除FTP上的文件代码您看下哪里不对了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126131)
--  作者：初心不改再说未来
--  发布时间：2018/10/15 10:25:00
--  老师这个FTP里面删除行的时候同时删除FTP上的文件代码您看下哪里不对了
If ftp1.DeleteFile(“这里该填写什么才是在DataRowDeleting事件里删除当前行的ftp文件？”) = True Then
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

删除行时，同时删除此行在FTP中的文件。
--  作者：初心不改再说未来
--  发布时间：2018/10/15 10:32:00
--  
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim fl As String = fm.SelectedItem
If fl > "" Then
    fm.DeleteFile(fl)
End If

也不对。。。
--  作者：初心不改再说未来
--  发布时间：2018/10/15 10:37:00
--  

BeforeDeleteFile   

Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")

Dim fl As String = fm.SelectedItem

Dim ftp1 As New FtpClient

ftp1.Host="xm"

ftp1.Account = "xg"

ftp1.Password = "c2"

If fl > "" Then

    fm.DeleteFile(fl)

End If


也不对。。。
--  作者：有点甜
--  发布时间：2018/10/15 10:54:00
--  

Dim ftp As FTPClient = e.DataTable.datacols("文件").FTPClient
If ftp.DeleteFile(e.DataRow("文件")) Then    
    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
--  作者：初心不改再说未来
--  发布时间：2018/10/15 11:44:00
--  

BeforeDeleteFile  

老师是写在这个事件里吗？

删除行之后，文件还是在FTP里，没有删除成功
--  作者：有点甜
--  发布时间：2018/10/15 11:45:00
--  

写在 datarowDeleting 事件