高手请进动态文件夹建立 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用有点甜在2014-4-24 9:08:00的发言：

级别多层？不是把这一行的文件直接放到这一行的产品列的那个目录下，就行了么？

老师你好！对呀我要把 BOM 效果图等放到产品文件夹下

我看了动态设置还是很迷糊不知道怎么写、

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20140423145953.png

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

[此贴子已经被作者于2014-4-24 9:34:09编辑过]

做了一下，你看一下就行。在 Attachments 目录下分类

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

以下是引用有点甜在2014-4-24 9:38:00的发言：

做了一下，你看一下就行。在 Attachments 目录下分类

下载信息 [文件大小：308.0 KB 下载次数：0]
点击浏览该文件:管理项目1.foxdb

对的谢谢甜老师就是这样的，对于一些资料的整理分类很有用，

甜老师谢谢您的细心指教我还想问你下

Dim dr As DataRow = e.DataRow

If dr.IsNull("产品") Then

msgbox("产品列不能为空")

e.cancel = True

Else

Select Case e.DataCol.Name

Case "Bom"

e.SubFolder = dr("产品") & "\BOM"

Case "图纸"

e.SubFolder = dr("产品") & "\图纸"

Case "效果图"

e.SubFolder = dr("产品") & "\效果图"

End Select

End If

这段代码我想在产品列前面再加个一个风格列多了一个级别条件该如何修改呢，试了几次不成功，还是要请教您了

Dim dr As DataRow = e.DataRow

If dr.IsNull("类别") Or dr.IsNull("部门") Then

msgbox("类别or部门不能为空")

e.cancel = True

Else

Select Case e.DataCol.Name

Case "一级文件_制度"

e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_制度"

Case "一级文件_流程"

e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_流程"

Case "一级文件_表格"

e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_表格"

Case "一级文件_签发原件"

e.SubFolder = dr("类别") & "\" & dr("部门") & "\一级文件_签发原件"

End Select

End If

搞定了如有更高的效率代码还是请指教

[此贴子已经被作者于2014-4-25 1:02:14编辑过]

主题：高手请进 动态文件夹建立

主题：高手请进动态文件夹建立