- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 文件管理器显示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50765)
-- 发布时间：2014/5/13 10:31:00
-- 文件管理器显示问题
此主题相关图片如下：qq截图20140513102528.png
这种显示路径的方式固然比较好 但是路径长的时候 我就不知道这一行文件名称是什么了
有么有办法将路径倒着显示 或是只显示文件名路径不显示 可以通过右键属性来选择 或是像图片软件一样 显示文件所在的位置等 扩展功能呢
此主题相关图片如下：qq截图20140513103120.png
-- 发布时间：2014/5/13 10:32:00
--
你可以把根存放目录设置为这个文件夹,这样这里就只显示文件名了.
-- 发布时间：2014/5/13 10:35:00
--
你可以把根存放目录设置为这个文件夹,这样这里就只显示文件名了.
-- 发布时间：2014/5/13 10:36:00
--
那没办法,窗口拉宽一点吧
-- 发布时间：2014/5/13 10:37:00
--
或者你把目录这一段存到另外一个列,打开的时候再取值拼接.
-- 发布时间：2014/5/13 10:38:00
--
那没办法,窗口拉宽一点吧
貌似拉不动奥
-- 发布时间：2014/5/13 10:44:00
--
用5楼的方法
-- 发布时间：2014/5/14 18:50:00
--
或者你把目录这一段存到另外一个列,打开的时候再取值拼接. |
Dim dr As DataRow
= e.DataRow
If
dr.IsNull("文件类别") OrElse dr.IsNull("资料名称") Then
msgbox("文件类别,资料名称列不能为空")
e.cancel = True
Else
Select Case e.DataCol.Name
Case "发布源文件"
e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "源文件" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版"
Case "发布签字版"
e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "签字文件" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版"
Case "签收记录"
e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "签收记录" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版"
Case "培训记录"
e.SubFolder = dr("文档归类")
& "\\" & dr("文件类别") & "\\" &
dr("资料名称") & "\\" & "培训记录" &
format(dr("日期").Today,"yyyy-MM-dd") & "更新版"
End Select
End If
我写入是是这样的 要怎样做拼接 读取的速度有影响吗 我做了个 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:管理项目2.foxdb
-- 发布时间：2014/5/14 19:04:00
--
意思是这样。
你多加一列，叫文件附加列。在这一列里面显示短的文件名。
对这一列进行操作的时候，比如 打开，就在 BeforeOpenFile 事件写入代码，打开对应的文件。
如果不会做，就上传一个例子吧
-- 发布时间：2014/5/14 20:23:00
--
如下，不建议这样做，太麻烦了。得不偿失
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:短文件名图片列示例.foxdb |