感谢 感谢 可以了 能问问一个问题吗,还有就是要执行红色代码的功能有没什么其他办法呀,感谢 感谢
就是没有关于"PictureViewer2"的代码,为什么下面的代码会关联到"PictureViewer2"呢,感谢 感谢
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 '图片浏览器显示图片
[此贴子已经被作者于2018/8/9 17:51:47编辑过]