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 copies the name into code for each table, column and view
' of the current folder
Private sub ProcessFolder(folder)
Dim pag
Dim Tab 'running table
Dim Col '
for each pag in folder.packages
for each Tab in pag.tables
tab.comment="aliasName:"+tab.name+"comment:"+tab.comment
for each Col in Tab.Columns
col.comment="aliasName:"+col.name+"comment:"+col.comment
next
next
next
end sub
請教該怎么寫出便利package。謝謝
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/127659.html
標籤：VB基礎類