加上红色代码
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