2

作为创建基本修订控制系统的努力的一部分，我想以编程方式禁用 Lotus Notes 模板上的设计元素级别继承。到目前为止，我已经尝试了以下方法：

  • DXL 导出 (ForceNoteFormat=true) + XSLT。这在导入器中的字段（！）上出现验证问题而失败。
  • DXL 导出 (ForceNoteFormat=false) + XSLT。似乎工作，但我宁愿不使用 DXL 解决方案来解决这个问题。

我想探索的领域：

  • 遍历所有（设计）注释，删除该$Class项目。

有没有人有关于如何做到这一点的建议，或者其他可以删除继承的方法？

4

1 回答 1

4

以下 sub 似乎有效，它从 7.0.3 客户端可以生成的任何设计元素中删除了标志。我NotesNoteCollection从Ian关于同一主题的博客文章中获得了线索：

Private Sub clearDesignInheritance(db As notesdatabase)
    On Error Goto errorthrower

    Dim nc As NotesNoteCollection
    Set nc = db.CreateNoteCollection(True) ' Select all note types...
    nc.SelectDocuments=False ' ...except data documents.

    Call nc.BuildCollection

    Dim noteid As String
    noteid = nc.GetFirstNoteId

    Dim doc As notesdocument

    Do Until noteid=""
        Set doc = db.GetDocumentByID(noteid)
        If doc.HasItem("$Class") Then
            Call doc.RemoveItem("$Class")
            Call doc.save(False,False,False)
        End If
        noteid = nc.GetNextNoteId(noteid)
    Loop

    Exit Sub
ErrorThrower:
    Error Err, Error & Chr(13) + "Module: " & Cstr( Getthreadinfo(1) ) & ", Line: " & Cstr( Erl )
End Sub
于 2009-08-10T18:37:49.043 回答