将PowerDesigner中列的name生成到注释comment中去.vbs

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


if len(tab.name) <> 0 then


tab.comment = tab.name


end if


On Error Resume Next


Dim col 'running column


for each col in tab.columns


if len(col.name) <>0 then


col.comment =col.name


end if


On Error Resume Next


next


end if


next


end sub