笔记：PowerDesigner把列名复制给comment

' update by 大仕忆
' 效果:comment = 列名+ ; +comment
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 +"；"+ tab.comment '不管怎么样，强行把表名称拷贝给comment
      Dim col 'running column
      for each col in tab.columns
         col.comment= col.name +"；"+col.comment '不管怎么样，强行把列名称拷贝给comment
      next
   end if
next
Dim view 'running view
for each view in folder.Views
   if not view.isShortcut and trim(view.comment)="" 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