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


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

主题:[求助]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控件中下面的如增加、打开、删除等按钮根本不能用

请老师指导下,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 14:54:00 [只看该作者]

使用代码给临时表设置扩展属性即可:http://www.foxtable.com/webhelp/topics/1356.htm

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


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

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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 15:01:00 [只看该作者]

嗯,控件只能绑定到table,需要窗口表添加一个table控件,然后绑定到datatable。建议直接使用一个窗口表fill:http://www.foxtable.com/webhelp/topics/2912.htm


 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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控件点“增加”时能用

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 15:58:00 [只看该作者]

动态设置绑定,参考:http://www.foxtable.com/webhelp/topics/1860.htm

 回到顶部
帅哥哟,离线,有人找我吗?
huangfanzi
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & ".附件"

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 16:28:00 [只看该作者]

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

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


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

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



 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/6 16:50:00 [只看该作者]

Dim t As Table = Tables(e.Form.Name & "_Table1")
t.Fill("Select  * From {表A} Where [_Identify] Is Null","",False)
t.AutoSizeCols()
Dim dt As DataTable = t.DataTable
dt.DataCols("附件").ExtendType = ExtendTypeEnum.Images
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.BindingField = t.Name & ".附件"
t.AllowEdit = True
t.addnew

 回到顶部
总数 16 1 2 下一页