PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

很多人都会想在使用PowerDesigner设计完数据库时自动将name列值在输出时自动复制到comment列

运行脚本 Tools->Execute Commands->Edit/Run Scripts（快捷键：Ctrl+Shift+X）

VB脚本如下：

' 把pd中那么name想自动添加到comment里面

'如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失.

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch  

Dim mdl' the current model  

' get the current active model

Set mdl = ActiveModel

If (mdlIs 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

    if trim(tab.comment)="" then'如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.

       tab.comment = tab.name

    end if 

 Dim col' running column 

 for each col in tab.columns

  if trim(col.comment)="" then'如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.

   col.comment= col.name

  end if

 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 fIn folder.Packages 

  if not f.IsShortcut then 

 ProcessFolder f 

  end if 

 Next 

end sub