PD中将Comment 从Name复制值

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 comment 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 
if (len(col.comment)<=0) Then
col.comment= col.name 
end If 
next 
end if 
next
Dim view ‘running view 
for each view in folder.Views 
if not view.isShortcut then 
view.comment = view.name 
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