主题：可以在表里设置对每一行存放子目录吗？

 文件型列可以指定列存放目录。对每一行的记录能设置对应的行子目录吗？每一行对应一个子目录，里面存放每一笔记录的各种文件资料，请教大侠这样可以吗？

 

     BeforeAttachFile 事件

假定文件中有三列，分别是作者、拍摄日期、照片，希望向照片列添加文件的时候，自动根据作者和拍摄日期创建子目录来存放文件，例如作者张三在2010年度拍摄的照片存放在Attachments的子目录"张三\2010"下：

Dim dr As DataRow = e.DataRow
If dr.IsNull("拍摄日期") Or Dr.IsNull("作者") Then
MessageBox.Show("拍摄日期和作者不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
e.SubFolder = dr("作者") & "\" & dr("拍摄日期").Year
End If

 

 

如果在上例基础上增加视频列，存放在固定目录，不需要动态存储，同时又把每一行的视频文件复制到照片列动态存储目录。

请教狐狸老爸这样可以吗？感谢。。

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("协议表")

Dim dc As DataCol = dt.DataCols("旧程式")
Dim dd As DataCol = e.DataCol

If dc.name  Then
      e.Cancel = True
Else
    e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")
End If

 

这样写执行错误，菜鸟请教帮忙查看。

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("协议表")

Dim dc As DataCol = dt.DataCols("旧程式")

If dc.name = ("旧程式")  Then
      e.Cancel = True
Else
    e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")
End If

 

改成这样后，执行所有的列都执行了e.Cancel = True，其他列没有执行"e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")",

请教版主，这是什么问题，实在是没找出问题。

按照e-png 提供的帮助修改后，问题依旧一样，在任何文件型列添加文件时候都添加不了，空白。

 e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号") 只写这一句，每列都可以按照行添加动态存储
目录。

 

继续再查资料。。

 

怎么就没一位大侠愿意指教一下呢？

 

 

我设有三个多文件列，“旧程式”，“新程式”，“点集”，我需要把“旧程式”列作为固定目录存储，而“新程式”列和“点集”列作为动态存储目录，自动根据“设备类目”，“设备品牌”和“设备型号”创建子目录来存放文件。我是这样写的，烦请老师指教。

 

Dim dr As DataRow = e.DataRow Dim dt As DataTable = DataTables("协议表") Dim dc As DataCol = dt.DataCols("旧程式") If dc.name = ("旧程式") Then e.Cancel = True Else e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号") End If 改成这样后，执行所有的列都执行了e.Cancel = True，其他列没有执行"e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")", 添加任何列任何文件都不起作用，添加不了。 请教老师，这是什么问题。

按照老师提供的帮助修改后，“新程式”列和“点集”列可以按照动态存储目录创建子目录存放文件了。可“旧程式”列不能添加文件，添加不起作用。我需要“旧文件”列按照固定目录d:\来存放文件。

“旧文件”列的列属性里存放目录已经选定"d:\".

  

在外地出差，今天终于回家，立马上来报到。

按照老师的帮助，这样写后

Dim dr As DataRow = e.DataRow
Dim dc As DataCol = e.DataCol
If dc.name = "旧程式" Then
e.SubFolder = "d:\"
Else
e.SubFolder = dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")
End If

 

在"旧文件"列添加文件到固定目录D:\时候，会弹出错误提示，如附图：

 

 

还需要请教狐狸爸爸老师一个问题，

"旧程式" 列的添加文件添加到固定目录d:\的同时，想同时复制这个文件到动态存储目录dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")下,

另外当D:\目录下这个文件有更新时，同步自动更新在动态存储目录dr("设备类目") & "\" & dr("设备品牌")& "\" & dr("设备型号")的同一文件
。

请问这样可以做么，烦请指导，谢谢老师了。

此主题相关图片如下：无标题.png