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