此主题相关图片如下：qq图片20200902172715.png

Dim r As Row = Tables("采购合同管理").Current
Dim dlg As New SaveFileDialog
Dim ftp1 As new  ftpclient
ftp1.host="120.***.0"
ftp1.Account =  "ft1"
ftp1.password =  "19*******9"
If ftp1.Download(r("采购合同扫描件"),dlg.FileName,True) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

老师，集合位置不知道怎么写

Dim ftp As  New  FtpClient
ftp.Host="120*****.0"
ftp.Account =  "ft****1"
ftp.Password =  "1********9"
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
Dim lst As List(of String) =  dr.Lines("采购合同扫描件")  \'获取文件集合
\'msgbox(lst.Count) \'文件数量
For Each fl As  String In  FileSys.GetFiles(lst)
    If ftp.Download(fl,dlg.FileName,True) = True   Then
        messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
Next

此主题相关图片如下：qq截图20200903094052.png

开始测试把附件列内容改到了，这样下载下来只有一个文件，这个文件名怎么处理呢？

Dim ftp As  New  FtpClient
ftp.Host="120********0"
ftp.Account =  "ft*****1"
ftp.Password =  "1*******9"
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*jpeg" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok  Then  \'如果用户单击了确定按钮
    Dim dr As DataRow = Tables("采购合同管理").Current.DataRow
    Dim lst As List(of String) =  dr.Lines("采购合同扫描件")  \'获取文件集合
    For Each fl As  String In lst
        If ftp.Download(fl,dlg.FileName,True) = True   Then
            messagebox.Show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            messagebox.Show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
End If