主题：图片，文件，多文件列，局域网存放目录动态设置？

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

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

 

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

 

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

 

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

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

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

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

 

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

 

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

 

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

 看23楼，重新设置一次defaultFolder

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

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

 

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

 

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

 

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