|
If e.Table.current IsNot Nothing Then
e.Form.Controls("PictureViewer1").BindingField = ""
Forms("平台管理窗口").Controls("WebBrowser1").address = Tables("平台管理窗口_Table1").Current("编辑信息_文件路径") '文件夹内容文件显示'
e.Table.DataTable.datacols("编辑信息_窗口图片").DefaultFolder = e.Table.current("编辑信息_文件路径") & "\窗口图片\"
e.Table.DataTable.datacols("编辑信息_详解图片").DefaultFolder = e.Table.Current("编辑信息_文件路径") & "\详解图片\"
e.Form.Controls("PictureViewer1").BindingField = "平台管理窗口_Table1.编辑信息_窗口图片"
End If '图片浏览器显示图片
| 
加好友 
发短信
Post By：2018/8/9 9:27:00 [显示全部帖子]
