Foxtable(狐表)用户栏目专家坐堂 → [求助]PictureViewer的使用问题


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

主题:[求助]PictureViewer的使用问题

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]PictureViewer的使用问题  发帖心情 Post By:2020/4/6 14:46:00 [显示全部帖子]

项目中有个公司名录表,表中有个【附件】列,是用来上传扫描件的,表是用以下方法加载的:
项目Initialize事件
Dim cmd_上下游公司名录 As New SQLCommand
cmd_上下游公司名录.C
cmd_上下游公司名录.C ommandText = "S elect * From {上下游公司名录} Where [_Identify] Is Null"
_dt上下游公司名录 = cmd_上下游公司名录.ExecuteReader(True)

如果不用上面的方法,直接在打开的表上使用时,可以在附件列上设置图片的扩展属性

现在用个窗口及Initialize事件加载模式,有个新增名录窗口,在窗口中做了个PictureViewer控件,此时控件的“绑定到”应该如何写,如果没有绑定到,PictureViewer控件中下面的如增加、打开、删除等按钮根本不能用

请老师指导下,谢谢!

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 14:56:00 [显示全部帖子]

PictureViewer控件属性中的绑定到如何写呢?是   _dt上下游公司名录.附件  ??

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 15:15:00 [显示全部帖子]

蓝老师,我搞不定,帮我看看代码如何写

窗口中的AfterLoad
Tables(e.Form.Name & "_Table1").Fill("S elect  * From {上下游公司名录} Where [_Identify] Is Null","ShcsErpSql",True)
Tables(e.Form.Name & "_Table1").AutoSizeCols()
DataTables(e.Form.Name & "_Table1").DataCols("附件").ExtendType = ExtendTypeEnum.Images

窗口中有个PictureViewer控件,到了这一步后,如何做,才能使PictureViewer控件点“增加”时能用

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 16:13:00 [显示全部帖子]

还是不行啊
Dim t As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = DataTables(e.Form.Name & "_Table1")
t.Fill("S elect  * From {上下游公司名录} Where [_Identify] Is Null","ShcsErpSql",True)
t.AutoSizeCols()
dt.DataCols("附件").ExtendType = ExtendTypeEnum.Images
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.BindingField = t.Name & ".附件"

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 16:38:00 [显示全部帖子]

还是不行,我做了个例子,请老师看下
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb



 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 17:38:00 [显示全部帖子]

可以了,还有一个问题,如果在表上的附件列直接操作,当设置成 图片扩展类型后,就会出现  “...”  
单击这个 “...” 的事件名是什么,我是希望加上一些代码,如把管理按钮去掉 
[此贴子已经被作者于2020/4/6 17:43:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/6 22:55:00 [显示全部帖子]

老师,如何屏蔽管理窗口,请指导下

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2020/4/7 13:06:00 [显示全部帖子]

蓝老师,这个 ... 弹出的窗口是系统自带的,所以,我没看懂你话的意思,我的需求是,在主表上,【附件】列设置成图片型后,单击 ... 出现的弹窗中有管理按钮,就算这个管理二字去不掉,如何让用点了管理没反应,不会弹出管理窗口

 回到顶部