以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片列添加文件时指定路径及文件夹层次  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117861)

--  作者:湛江智
--  发布时间:2018/4/20 8:31:00
--  [求助]图片列添加文件时指定路径及文件夹层次

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


--  作者:湛江智
--  发布时间:2018/4/20 8:42:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:启动后 属性里的路径就没有了.jpg
图片点击可在新窗口打开查看

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

图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2018/4/20 8:49:00
--  

1、这个代码写到afterOpenProjenct事件

 

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

 

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

 

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

 

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


--  作者:湛江智
--  发布时间:2018/4/20 9:22:00
--  回复:(有点甜)1、这个代码写到afterOpenProjenct事...

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


图片点击可在新窗口打开查看此主题相关图片如下:窗口.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

[此贴子已经被作者于2018/4/20 9:27:47编辑过]

--  作者:有点甜
--  发布时间:2018/4/20 9:28:00
--  

你控件那里明显搞错了。

 

【远程文件->False】

 

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


--  作者:湛江智
--  发布时间:2018/4/20 9:29:00
--  
可以了,谢版主了