以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]图片浏览器  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=144640)

--  作者：江南小镇 --  发布时间：2019/12/26 8:45:00 --  [求助]图片浏览器 老师，图片浏览器能添加按钮吗?

--  作者：有点蓝 --  发布时间：2019/12/26 8:50:00 --   不能

--  作者：江南小镇 --  发布时间：2019/12/26 10:02:00 --   老师，图片浏览器绑定后不能把文件夹的图片清除。 e.form.Controls("PictureViewer1").BindingField = "人事档案_able1.相片" 下面是存放目录 DataTables("人事档案_Table1").DataCols("相片").DefaultFolder = "H:\\Attachments\\凭证管理\\员工证件"

--  作者：有点蓝 --  发布时间：2019/12/26 10:16:00 --   图片清除只是清除单元格的数据，文件需要自己另外写代码删除

--  作者：江南小镇 --  发布时间：2019/12/26 11:33:00 --   老师，图片浏览器删除按钮删除文件时能触发自编的删除按钮代码吗？

--  作者：有点蓝 --  发布时间：2019/12/26 11:41:00 --   可以触发表格datacolchanged事件

--  作者：江南小镇 --  发布时间：2019/12/26 12:12:00 --   老师，下面是按钮代码怎样修改成表事件。 Dim Result As DialogResult Dim r As Row = Tables("人事档案_人事档案Table1").Current If r IsNot Nothing Then     Result = MessageBox.Show("确认删除?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)     If Result = DialogResult.no Then         Return     Else         FileSys.DeleteFile("H:\\蓝峰\\Attachments\\证件凭证管理\\员工证件\\" & r("个人基本资料_相片") , 2, 2)     End If End If Tables("人事档案_人事档案Table1").Current("个人基本资料_相片") = Nothing

--  作者：有点蓝 --  发布时间：2019/12/26 14:08:00 --   If e.DataCol.Name = "个人基本资料_相片" Then     If e.OldValue > "" andalso e.newvalue = "" Then         for each f as string in e.OldValue.replace(vbcr,"").split(vblf)         FileSys.DeleteFile("H:\\蓝峰\\Attachments\\证件凭证管理\\员工证件\\" & f , 2, 2) next     End If End If [此贴子已经被作者于2019/12/26 14:09:13编辑过]