Foxtable(狐表)用户栏目专家坐堂 → 图片,文件,多文件列,局域网存放目录动态设置?


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

主题:图片,文件,多文件列,局域网存放目录动态设置?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 8:35:00 [显示全部帖子]

认认真真看6楼。要确认此路径的文件夹,可以成功打开 \\192.168.40.102\data$\project\Attachments

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 8:59:00 [显示全部帖子]

你那个控件,绑定的表、列分别是什么,执行下面的代码看看

 

msgbox(DataTables("表").DataCols("列").DefaultFolder)

 

然后,再设置一下 DataTables("表").DataCols("列").DefaultFolder = "xxxx"

 

 有可能是你在窗口打开的时候,设置成空白的了。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 9:18:00 [显示全部帖子]

 那你在afterLoad事件设置一次DefaultFolder呢?

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 9:42:00 [显示全部帖子]

 那只能是,把你afterOpenProject的代码,写到每个窗口的afterLoad事件了。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 10:14:00 [显示全部帖子]

 有可能是,控件不继承DefaultFolder的值,每次都重新设置成空白了。你需要在afterLoad事件重新设置。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 10:17:00 [显示全部帖子]

以下是引用yancheng在2016/12/15 9:48:00的发言:
有没有好的点的办法。好多窗口(几十个窗口),一一写,好麻烦。万 一,一个写漏了,就不显示。 

 

要给每个窗口的afterLoad事件写一句代码,如

 

Functions.Execute("窗口初始化", e)

 

然后,去编写一个内部函数【窗口初始化】,编写你要写的代码,这样修改起来也方便。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 10:25:00 [显示全部帖子]

 看23楼,重新设置一次defaultFolder

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/15 17:31:00 [显示全部帖子]

打开 材料维护 的时候,有执行到 defaultFolder 的代码吗?加上msgbox试试

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/16 8:34:00 [显示全部帖子]

 一定要指定为窗口名么?来一个粗犷的不是更好?

 

Dim e As Object = Args(0)
For Each dt As DataTable In DataTables
    For Each dc As DataCol In dt.DataCols
        If dc.ExtendType = ExtendTypeEnum.File OrElse dc.ExtendType =ExtendTypeEnum.Files OrElse dc.ExtendType =ExtendTypeEnum.Images Then
            dc.DefaultFolder = "\\192.168.40.102\data$\project\Attachments\"
        End If
    Next
Next


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2016/12/16 11:54:00 [显示全部帖子]

以下是引用yancheng在2016/12/16 11:33:00的发言:
我怕这样影响系统 运行速度。这个代码太重了吧。我有:60个表。每开一个窗口,遍历,定义一次。不敢想后果。
[此贴子已经被作者于2016/12/16 11:34:17编辑过]

 

那你就必须在每个窗口放入一个控件【表名】,然后根据其值,设置defaultFolder。

 

也可以通过循环每一个控件,如果是某些控件,就取出其绑定属性BindingField,设置defaultFolder。


 回到顶部
总数 13 1 2 下一页