主题：图片上传到FTP

   If e.DataCol.Name = "上传" Then

    If e.NewValue = True Then

        If FileSys.FileExists(ProjectPath & "Attachments\" & e.DataRow("图片")) Then

            Network.UploadFile(ProjectPath & "Attachments\" & e.DataRow("图片") , "ftp://zhanshang:138238@egridsoft.com/public/" & e.DataRow("图片"))

        End If

    Else

        Dim ftp1 As new ftpclient

        ftp1.host="128.169.143.96"

        ftp1.Account = "foxuser"

        ftp1.password = "136137138"

        If ftp1.FileExists(e.DataRow("图片"))

            ftp1.Delete(e.DataRow("图片"))

        End If

    End If

End If

你自己改改试试，放在表事件的DataColChanged中执行。