name2comment

最新推荐文章于 2022-04-07 08:44:43 发布

yanfei133

最新推荐文章于 2022-04-07 08:44:43 发布

阅读量110

点赞数

分类专栏： data_base_desing

本文链接：https://blog.csdn.net/yanfei133/article/details/84184000

版权

data_base_desing 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

    Option Explicit
    ValidationMode = True
    InteractiveMode = im_Batch

    Dim mdl 'the current model

    'get the current active model
    Set mdl = ActiveModel
    If (mdl Is Nothing) Then
      MsgBox "There is no current Model"
    ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
      MsgBox "The current model is not an Physical Data model."
    Else
      ProcessFolder mdl
    End If

    'This routine copy name into code for each table, each column and each view
    'of the current folder
    Private sub ProcessFolder(folder)
        Dim Tab 'running table
        for each Tab in folder.tables
        if not tab.isShortcut then
            tab.comment = tab.name
            Dim col 'running column
            for each col in tab.columns
              col.comment= col.name&";"&col.comment
            next
        end if
        next

        Dim view 'running view
        for each view in folder.Views
        if not view.isShortcut then
          view.comment = view.name&";"&view.comment
        end if
        next

        'go into the sub-packages
        Dim f 'running folder
        For Each f In folder.Packages
            if not f.IsShortcut then
              ProcessFolder f
            end if
        Next
    end sub