以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态设置列属性  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96333)

--  作者:cuicuibing
--  发布时间:2017/2/18 11:02:00
--  动态设置列属性
窗口中的table,如何动态设置   图纸信息  为图片类型,并自动打开列窗口


Tables("产品").Cols("图纸信息").OpenWindow()
Dim fl As WinForm.PictureViewer = Tables("产品").Cols("图纸信息").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False

代码上边应该如何设定  图纸信息  列

--  作者:有点蓝
--  发布时间:2017/2/18 11:16:00
--  
参考:http://www.foxtable.com/webhelp/scr/1656.htm

http://www.foxtable.com/webhelp/scr/1356.htm

--  作者:cuicuibing
--  发布时间:2017/2/18 13:07:00
--  
版主  还是不行,请教

Tables("产品").Fill("S elect * From {工序库明细主表} where 物料编码 = \'" & cur & "\'","shenchan" ,False)
Tables("产品").SetColVisibleWidth("物料编码|60|部件|80|规格|60|部件数|50|编码|70|图纸信息|80|技术标准|80")
Tables("产品").AllowAddNew = True
Tables("产品").AllowDelete = True
Tables("产品").AllowEdit = True
DataTables("产品").DataCols("图纸信息").ExtendType = ExtendTypeEnum.Images

Tables("产品").Cols("图纸信息").OpenWindow()
Dim fl As WinForm.PictureViewer = Tables("产品编辑_Table7").Cols("图纸信息").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False


提示不行

--  作者:有点蓝
--  发布时间:2017/2/18 15:49:00
--  
Tables("产品").DataTable.DataCols("图纸信息").ExtendType = ExtendTypeEnum.Images

上传例子看看

--  作者:cuicuibing
--  发布时间:2017/2/18 16:09:00
--  
Tables("产品").DataTable.DataCols("图纸信息").ExtendType = ExtendTypeEnum.Images


版主这个正确了,图纸信息列已经设置为  图片列
Tables("产品").Cols("图纸信息").OpenWindow()
Dim fl As WinForm.PictureViewer = Tables("产品编辑_Table7").Cols("图纸信息").PictureViewer
fl.DeleteCommand.Enabled = False
fl.ClearCommand.Enabled = False
但是这个没有自动打开窗口

另外,这里如何用语句设置图纸信息列的属性   比如  图片为远程图片 打开的 PictureViewer,显示图片





--  作者:有点蓝
--  发布时间:2017/2/18 16:26:00
--  
窗口文件管理使用相关的控件绑定列使用