Foxtable(狐表)用户栏目专家坐堂 → 关于多文件列和fileManage的存放目录设置的问题


  共有3472人关注过本帖树形打印复制链接

主题:关于多文件列和fileManage的存放目录设置的问题

帅哥哟,离线,有人找我吗?
sjzsdu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
关于多文件列和fileManage的存放目录设置的问题  发帖心情 Post By:2015/12/18 14:35:00 [只看该作者]

在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  ,该怎么来写

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/18 14:41:00 [只看该作者]

 AfterLoad事件,也要写代码

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/18 14:44:00 [只看该作者]

直接设置也行

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
yangsion
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:1628 威望:0 精华:0 注册:2013/6/11 19:13:00
  发帖心情 Post By:2019/6/17 13:36:00 [只看该作者]

直接用这个就可以搞定了

 


 回到顶部