主题：FTP自制窗口上传失败

我也没用系统自带的，我还在服务器上以行进行建立对应的文件夹，分类存放。 你的上传这个看不太懂。。。我说看我的方法，行里有一列是备注，类型扩展为文件，远程存放的，窗口的文件管理器绑定到这列，把系统的按钮都隐藏了，文件管理器的远程链接参数都设置好，然后上次按钮的的代码，给你参考下。。。反正我的是没问题

Dim dlg As new OpenFileDialog

If dlg.ShowDialog = DialogResult.OK Then

    

    Dim xg As Integer = dlg.FileName.LastIndexOf("\")'斜杠最后出现的位置

    Dim fname As String = dlg.FileName.SubString(xg + 1)   '获取所选文件名称  ABC.jpg

    Dim r As Row = Tables("公文下发").Current

    Dim s As Integer = Format(Date.now,"MdHmss")

    

    Dim ifo As new FileInfo(dlg.filename)

    If ifo.Length > 20480000 Then

        msgbox("只能上次20M以下的文件!")

        Return

    End If

    

    Dim ftp As new FTPClient

    ftp.host="**********"

    ftp.Port = **********

    ftp.account="*********"

    ftp.password="********"

    ftp.Connect

    If ftp.Connected = True Then

        msgbox("链接成功,准备上传,等待上传成功或者失败的提示!")

    End If

    

    If ftp.DirExists("\gwfj\" & Tables("公文下发").Current("公文名称")) = False Then

        ftp.MakeDir("\gwfj\" & Tables("公文下发").Current("公文名称"))

    End If

    

    Dim fp As String = "\gwfj\" & Tables("公文下发").Current("公文名称")

    e.Form.text = "文件上传中....请稍候........."

    If ftp.Upload(dlg.FileName,fp & "\" & s & fname) = True Then  '若成功上传

        e.Form.text = "基本资料"

        MessageBox.Show("上传成功!","提醒")

        If r.IsNull("上传文件") Then

            r("上传文件") = fp & "\" & s & fname

        Else

            r("上传文件") = r("上传文件") & vbcrlf & fp & "\" & s & fname

        End If

    End If

End If

你最大的问题  感觉是没在行里记录下存储位置