以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]图片插入 如何不显示 “添加”、“删除”的功能选项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39587)

--  作者:physics
--  发布时间:2013/8/27 19:26:00
--  [求助]图片插入 如何不显示 “添加”、“删除”的功能选项

员工信息表的例子里面有员工图片,但发现可以添加 和 删除的 。为避免 员工删除 。如何设置成 不可以删除的呢??


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130827192322.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2013/8/27 19:50:00
--  
 参考帮助文档设置少量代码。


--  作者:physics
--  发布时间:2013/8/29 11:29:00
--  

不是 很明白 。

 

 

 

Tables("员工").Cols("附件").OpenWindow()
Dim
fl As WinForm.FileManager = Tables("员工").Cols("附件").FileManager
fl.DeleteCommand.Enabled =
False
fl.ClearCommand.Enabled =
False

 

 

这段代码 该放置在哪个地方呢??


--  作者:Bin
--  发布时间:2013/8/29 11:33:00
--  
设置在ALteropenPROJECT吧
--  作者:physics
--  发布时间:2013/8/29 14:17:00
--  

将代码复制进去 afteropenproject 似乎不行 。

就是这个 case 的例子 。员工 - 图片 。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3photo.table


--  作者:Bin
--  发布时间:2013/8/29 14:39:00
--  
1.你放错了事件,说好的afteropenproject  你放到beforOpenproject 去了
2.  你用的是图片列,而不是文件列, 用的不应该是文件管理器,而是图片管理器 
   Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.DeleteCommand.Visible False
pv.ClearCommand.
Visible = False



--  作者:physics
--  发布时间:2013/8/29 14:47:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/8/29 14:58:00
--  
怎么能生搬硬套呢,你应该先去看帮助.
项目事件何来的e.from呢? 应该是forms("窗口名才对"), 其次你是要设置列的图片管理器不是窗口的,更加不应该这么做.

应该Tables("表名").Cols("列名").PictureViewer

--  作者:physics
--  发布时间:2013/8/29 15:11:00
--  
晕了 。。。
--  作者:有点甜
--  发布时间:2013/8/29 21:57:00
--  
以下是引用physics在2013-8-29 15:11:00的发言:
晕了 。。。


把下面的代码放到afteropenproject里就行了,注意,是after

Tables("员工").Cols("照片").OpenWindow()
Dim pv As WinForm.PictureViewer = Tables("员工").Cols("照片").PictureViewer
pv.DeleteCommand.Visible = False
pv.ClearCommand.Visible = False