[求助]如何禁用克隆行功能？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何禁用克隆行功能？

共有11698人关注过本帖树形打印复制链接主题：[求助]如何禁用克隆行功能？

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/10/20 11:43:00 [显示全部帖子]

办法很多哟。

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

项目AfterOpenProject事件代码。

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

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/10/20 11:54:00 [显示全部帖子]

那就这样

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

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

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

czy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：[求助]如何禁用克隆行功能？