- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 附件下载异常 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157457)
-- 发布时间：2020/10/16 15:49:00
-- 附件下载异常
提示如图1，2，3，谢谢
Dim dlg As New FolderBrowserDialog
Dim f As String = Tables("产品资料库_资料信息").Cols("文件管理").DataCol.DefaultFolder
If f Is Nothing Then
f = "\\\\192.168.1.10\\d\\生产数据\\信息管理系统\\管理文件"
Else
f = f & "\\"
End If
msgbox(f)
If dlg.ShowDialog = DialogResult.Ok Then
msgbox(dlg.SelectedPath )
For Each r As Row In Tables("产品资料库_资料信息").rows
Dim file = f & r("文件管理").replace("/","\\")
If FileSys.FileExists(file) Then
FileSys.CopyFile(file,dlg.SelectedPath & r("文件管理"),True)
Else
msgbox("文件不存在:" & file)
End If
Next
End If
此主题相关图片如下：1.jpg
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
-- 发布时间：2020/10/16 15:50:00
--
此主题相关图片如下：4.jpg
此主题相关图片如下：5.jpg
-- 发布时间：2020/10/16 15:57:00
--
看图片5提示，产品资料库这个名称重复了
-- 发布时间：2020/10/16 16:00:00
--
我看到了，就是不知道咋改
-- 发布时间：2020/10/16 16:02:00
--
方法1、Tables("产品资料库_资料信息").Cols("文件管理").DataCol.DefaultFolder不要包含这个目录
2、表格文件列数据不要包含这个目录
二选一，自己看改哪个
-- 发布时间：2020/10/16 16:11:00
--
老师，我改好了，但有另一个问题，上传了多个附件的不能下载，像这种怎么处理呢？谢谢
此主题相关图片如下：1.jpg
-- 发布时间：2020/10/16 16:17:00
--
参考：http://www.foxtable.com/webhelp/topics/2717.htm