主题：文件管理器显示问题

此主题相关图片如下：qq截图20140513102528.png

 

这种显示路径的方式固然比较好 但是路径长的时候  我就不知道这一行文件名称是什么了

 

有么有办法将路径倒着显示   或是只显示文件名路径不显示     可以通过右键属性来选择 或是像图片软件一样  显示文件所在的位置等 扩展功能呢

此主题相关图片如下：qq截图20140513103120.png

你好老师  我是动态的  不确定根

貌似拉不动奥

 

 

  

或者你把目录这一段存到另外一个列,打开的时候再取值拼接.

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