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

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

 

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

我怕这样影响系统 运行速度。这个代码太重了吧。我有：60个表。每开一个窗口，遍历，定义一次。不敢想后果。

 

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

 

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

嗯。我最新回复，就是根据 窗口控件绑定。但是写得不好。不知道怎么写好。

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.PictureViewer OrElse Typeof c Is WinForm.PictureBox OrElse Typeof c Is WinForm.FileManager Then '判断控件是否是文本框
        Dim t As object = c
       
        Dim nm As String = t.BindingField '获取绑定的字段
        Dim strr As String = nm.Split(".")(0)
        If DataTables.Contains(strr) Then
            DataTables(strr).DataCols(nm.Split(".")(1)).DefaultFolder = "\\192.168.40.102\data$\project\Attachments1\"
        End If
    End If
Next

模式窗口能弹MSGBOX，

 

不可能，任何窗口，都会触发AfterLoad事件。