以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]文件管理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64565)

--  作者:风声
--  发布时间:2015/2/23 20:05:00
--  [求助]文件管理

老师,下面的文件管理项目是论坛视频讲座里的。我把文件上传后保存不了。

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:文件管理器.table


--  作者:有点甜
--  发布时间:2015/2/23 20:18:00
--  
 呃,测试,什么问题都没有。
--  作者:风声
--  发布时间:2015/2/23 20:52:00
--  

 我第二次点击单元格窗口显示已被删除。单元格只有文件名称。


图片点击可在新窗口打开查看此主题相关图片如下:图像 9.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2015/2/23 20:57:00
--  

AfterLoad事件代码改一下

 

If GetConfigValue("文件夹路径" & ComputerId,"") = "" Then  \'若未指定存储路径
    e.Form.Controls("路径").text = "尚未指定文件存储路径!"
Else
    e.Form.Controls("路径").text = GetConfigValue("文件夹路径" & ComputerId,"")
End If

If Tables("表A").Current.Isnull("文件名") = True Then \'若文件名为空
    e.Form.Controls("文件名").text = "未上传文件!"
    e.Form.Controls("PictureBox1").image = getimage("other.png")
Else
    If filesys.FileExists(e.Form.Controls("路径").text & "\\" & Tables("表A").Current("文件名")) = False Then
        e.Form.Controls("文件名").text = "文件已被删除!"
        e.Form.Controls("PictureBox1").image = getimage("del.png")
    Else
        e.Form.Controls("文件名").text = Tables("表A").Current("文件名")
        Functions.Execute("刷新图标")
    End If
End If


--  作者:风声
--  发布时间:2015/2/23 21:11:00
--  
谢谢老师