PowerDesigner软件里面将表中name列值复制到comment列

PowerDesigner软件里面将表中name列值复制到comment列

第一种方式：

   PowerDesigner软件中双击打开一个Table表,选中Columns选项卡,按快捷键Ctrl+U,找到Comment并勾选即可。

第二种方式：

   执行vbs脚本：PowerDesigner软件中打开tools =》 Execute Commands =》 Edit/Run Scripts，也可以使用快捷键Ctrl+Shift+X；

执行下面脚本

' 如果comment为空,则填入name;如果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 t