以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何禁用克隆行功能?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=8410)

--  作者:ddlzq
--  发布时间:2010/10/20 11:29:00
--  [求助]如何禁用克隆行功能?

各位老师:

我设置了一列一个单号,这个单号编制不能重复,可是使用克隆行还是允许重复,能保存,请问如何禁用克隆行功能 ?


--  作者:czy
--  发布时间:2010/10/20 11:43:00
--  

办法很多哟。

自定义菜单,删除或屏蔽此功能。

 

项目AfterOpenProject事件代码。


RibbonTabs("Common")("Data")("CloneRow").Visible = False


--  作者:ddlzq
--  发布时间:2010/10/20 11:49:00
--  
那CZY老师,在行号上点右键,克隆行功能也会屏蔽吗?
--  作者:czy
--  发布时间:2010/10/20 11:54:00
--  

那就这样

 

RibbonTabs("Common")("Data")("CloneRow").Visible = False

ContextMenus("Row")("Clone").Visible = False


--  作者:ddlzq
--  发布时间:2010/10/20 11:59:00
--  
以下是引用czy在2010-10-20 11:54:00的发言:

那就这样

 

RibbonTabs("Common")("Data")("CloneRow").Visible = False

ContextMenus("Row")("Clone").Visible = False

图片点击可在新窗口打开查看有够强大,CZY老师,有没有这方面的专门的讲解?我好像在帮助中没搜到,有了这些定义的代码,会解决好多问题。

再问CZY老师,那能判断不同的表有的表能用克隆行有的表不能用克隆行吗?是不是要加代码判断,比如前不久我问过,某些表不允许使用高速导出功能。


--  作者:狐狸爸爸
--  发布时间:2010/10/20 12:17:00
--  
帮助有说明的,你看看菜单设计部分。
--  作者:czy
--  发布时间:2010/10/20 12:31:00
--  

\'项目CurrentTableChanged事件


Dim str As String
For Each dc As DataCol In DataTables(CurrentTable.Name).DataCols
    str = str & DataTables(CurrentTable.Name).DataCols(dc.Name).Unique
Next
If str.Contains("True") Then
    RibbonTabs("Common")("Data")("CloneRow").Visible = False
    ContextMenus("Row")("Clone").Visible = False
Else
    RibbonTabs("Common")("Data")("CloneRow").Visible = True
    ContextMenus("Row")("Clone").Visible = True
End If


--  作者:ddlzq
--  发布时间:2010/10/20 12:31:00
--  

谢谢CZY和狐爸了,我看看菜单设计部分。


--  作者:czy
--  发布时间:2010/10/20 12:34:00
--  

楼上的代码也可以简化为

 

\'项目CurrentTableChanged事件
Dim str As String
For Each dc As DataCol In DataTables(CurrentTable.Name).DataCols
    str = str & DataTables(CurrentTable.Name).DataCols(dc.Name).Unique
Next
RibbonTabs("Common")("Data")("CloneRow").Visible = str.Contains("True") = False
ContextMenus("Row")("Clone").Visible = str.Contains("True") = False

[此贴子已经被作者于2010-10-20 12:34:28编辑过]