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

下面代码怎么修改，实现物料汇总表的列：图片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

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

此主题相关图片如下：窗口.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