Foxtable(狐表)用户栏目专家坐堂 → [求助]图片浏览器


  共有3337人关注过本帖树形打印复制链接

主题:[求助]图片浏览器

帅哥哟,离线,有人找我吗?
江南小镇
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
[求助]图片浏览器  发帖心情 Post By:2019/12/26 8:45:00 [显示全部帖子]

老师,图片浏览器能添加按钮吗?

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/12/26 10:02:00 [显示全部帖子]

老师,图片浏览器绑定后不能把文件夹的图片清除。

e.form.Controls("PictureViewer1").BindingField = "人事档案_able1.相片"

下面是存放目录
DataTables("人事档案_Table1").DataCols("相片").DefaultFolder = "H:\Attachments\凭证管理\员工证件"

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By:2019/12/26 11:33:00 [显示全部帖子]

老师,图片浏览器删除按钮删除文件时能触发自编的删除按钮代码吗?

 回到顶部
帅哥哟,离线,有人找我吗?
江南小镇
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1765 积分:11811 威望:0 精华:0 注册:2015/6/22 8:11:00
  发帖心情 Post By: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

 回到顶部