以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115189)
--  作者：guosheng
--  发布时间：2018/3/2 14:05:00
--  如何将远程ftp文件，赋给表的“附件列”，及窗口的filemanager控件？
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编辑过]
--  作者：有点甜
--  发布时间：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

 

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