各位老师：

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

办法很多哟。

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

项目AfterOpenProject事件代码。

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

那就这样

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

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

有够强大，CZY老师，有没有这方面的专门的讲解？我好像在帮助中没搜到，有了这些定义的代码，会解决好多问题。

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

\'项目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和狐爸了，我看看菜单设计部分。

楼上的代码也可以简化为

\'项目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