主题：[求助]图片列添加文件时指定路径及文件夹层次

下面代码怎么修改，实现物料汇总表的列：图片1，指定存放路径的同时实现，文件夹根据物料汇总表的3列文件夹层次存放呢？

DataTables("物料汇总").DataCols("图片1").DefaultFolder = "O:\勿删!公司管理文件\图片\物料汇总\"
'动态设置文件存储位置--日期是年2018-04-19
Dim dr As DataRow = e.DataRow
If dr.IsNull("创建日期") Or Dr.IsNull("产品名称") Or  Dr.IsNull("品牌型号")  Then
    MessageBox.Show("产品名称--品牌型号--创建日期  不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("产品名称") & "\" & dr("品牌型号") & "\" & dr("创建日期")
End If

此主题相关图片如下：启动后 属性里的路径就没有了.jpg

项目重新启动后，属性里的路径就没有了，要重新设置路径，图片才能预览

此主题相关图片如下：捕获.jpg

1、这个代码写到afterOpenProjenct事件

DataTables("物料汇总").DataCols("图片1").DefaultFolder = "O:\勿删!公司管理文件\图片\物料汇总\"

要注意，！的符号，是中文的！还是英文的!

http://www.foxtable.com/webhelp/scr/1273.htm

2、如果你用到了窗口，用到了pictureviewer控件，在这个控件的属性那里也要设置【存放目录】

项目启动后添加了代码，窗口也添加了。列属性的存放目录，每次项目启动后都还要输入路径，怎么解决？

此主题相关图片如下：窗口.jpg

AfterOpenProject填写如下：

'列存放文件路径
DataTables("物料汇总").DataCols("图片1").DefaultFolder = "O:\数据库\物料汇总"

BeforeAttachFile代码：

'动态设置文件存储位置--日期是年2018-04-19----------ok
Dim dr As DataRow = e.DataRow
If dr.IsNull("创建日期") Or Dr.IsNull("产品名称") Or  Dr.IsNull("品牌型号")  Then
    MessageBox.Show("产品名称--品牌型号--创建日期  不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    e.SubFolder = dr("产品名称") & "\" & dr("品牌型号") & "\" & dr("创建日期")
End If

你控件那里明显搞错了。

【远程文件->False】

【存放目录->O:\数据库\物料汇总】