以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于多文件列和fileManage的存放目录设置的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78854)

--  作者:sjzsdu
--  发布时间:2015/12/18 14:35:00
--  关于多文件列和fileManage的存放目录设置的问题
在openproject事件中设置了 
datatables(“客户信息”).datacols("客户附件").DefaultFolder =“\\\\MBENBEN-PC\\ERPDatabase\\客户附件”
MessageBox.show( DataTables("客户信息").dataCols("客户附件").DefaultFolder )

在客户明细的窗口中添加了一个fileManage的控件,窗体的afteropen,放了代码:
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
 fm = Tables("客户信息").Cols("公司附件").FileManager

MessageBox.show( DataTables("客户信息").dataCols("客户附件").DefaultFolder )

第一个弹出来 【\\\\MBENBEN-PC\\ERPDatabase\\客户附件】
第二个弹出来 为空

我想用代码来设置 多文件列和fileManage控件的 defaultFolder  ,该怎么来写

--  作者:大红袍
--  发布时间:2015/12/18 14:41:00
--  

 AfterLoad事件,也要写代码

 

datatables("客户信息").datacols("客户附件").DefaultFolder ="\\\\MBENBEN-PC\\ERPDatabase\\客户附件"


--  作者:大红袍
--  发布时间:2015/12/18 14:44:00
--  

直接设置也行

 

Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")

fm.FolderName ="\\\\MBENBEN-PC\\ERPDatabase\\客户附件"


--  作者:yangsion
--  发布时间:2019/6/17 13:36:00
--  

直接用这个就可以搞定了