如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？

共有2036人关注过本帖树形打印复制链接主题：如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？

guosheng

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：896 积分：7535 威望：0 精华：0 注册：2017/12/27 14:19:00

如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？ 发帖心情

Post By：2018/3/2 14:05:00 [只看该作者]

Dim dlg As new OpenFileDialog

dlg.Filter= "pdf文件|*.pdf" '设置筛选器

If dlg.ShowDialog = DialogResult.OK

Dim ftp As new FTPClient

ftp.Host="47.93.235.88"

ftp.Account = "……"

ftp.Password = "……"

ftp.Upload(dlg.FileName,"\" & user.group & "\" & user.name & ".pdf") '重命名文件

End If

1、如何将上传的文件赋给“表A”的附件列（允许多文件），且可实现点击附件列打开已上传的文件。

2、如何将上传的文件赋给“窗口1”的filemanager1（允许多文件），且可实现点击链接打开已上传的文件。

3、如果再执行以上代码，将相应pdf文件如何再赋给附件列和filemanager控件，实现多文件上传。

谢谢。

[此贴子已经被作者于2018/3/2 14:34:15编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/2 14:37:00 [只看该作者]

加上红色代码

ftp.Upload(dlg.FileName,"\" & user.group & "\" & user.name & ".pdf") '重命名文件

Dim cr As Row = Tables("表A").Current

Dim ls = cr.dataRow.Lines("文件列")

ls.add("/" & user.group & "/" & user.name & ".pdf")

cr.dataRow.Lines("文件列") = ls

主题：如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？