主题：图片，上传到ftp

试试改成

 

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*****"
    ftp1.Account =  "ftp003"
    ftp1.password =  "*****"
   
    For Each f As String In dlg.FileNames
        If  ftp1.Upload(f,"\系统更新\" & filesys.GetName(f) , True) = True Then
            Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
    ftp1.Close
End If

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*******"
    ftp1.Account = "ftp001"
    ftp1.password = "******"
    Dim r As Row = Tables("表A").Current
    Dim ls = r.DataRow.Lines("中标通知书")
    For Each f As String In dlg.FileNames
        Dim file = "/公司业绩/" & r("项目名称") & "/" & filesys.GetName(f)
        If ftp1.DirExists("/公司业绩/" & r("项目名称")) = False Then
            ftp1.MakeDir("/公司业绩/" & r("项目名称"))
        End If
        If  ftp1.Upload(f,file,True) = True Then
            ls.add(file)
        Else
            msgbox("上传" & f & "失败")
        End If
    Next
    r.DataRow.lines("中标通知书") = ls
    ftp1.Close
End If

理清你的逻辑，如果多个列需要上传文件，如何区分是要给哪个列上传文件？你可以做三个按钮一个按钮对应一个列。

参考代码

 

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*******"
    ftp1.Account = "ftp001"
    ftp1.password = "******"
    Dim r As Row = Tables("表A").Current
    Dim ls As List(of String) = r.DataRow.Lines("中标通知书")
    For Each f As String In dlg.FileNames
        Dim file = "/公司业绩/" & r("项目名称") & "/" & filesys.GetName(f)
        If ftp1.DirExists("/公司业绩/" & r("项目名称")) = False Then
            ftp1.MakeDir("/公司业绩/" & r("项目名称"))
        End If
       
        Dim Result As DialogResult
        If ftp1.FileExists(file) Then
            Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        End If
        If result = Nothing OrElse result = DialogResult.Yes Then
            If  ftp1.Upload(f,file,True) = True Then
                If ls.contains(file) = False Then
                    ls.add(file)
                end if
            Else
                msgbox("上传" & f & "失败")
            End If
        end if
    Next
    r.DataRow.lines("中标通知书") = ls
    ftp1.Close
End If

 

不是可以加上代码 e.cancel = true ？

 

http://www.foxtable.com/webhelp/scr/0642.htm

 

 

 

CellButtonClick加了e.cancel = true就不会再弹出内置的窗口的，不可能的事情。