powerdesigner 批量修改实体和列的 comment 为 定义的 name

原文链接：PowerDesigner经验——从sql生成pdm（name字段值为sql中的comment描述值）

powerdesigner 批量修改实体和列的 comment 为 定义的 name

打开菜单 Tools -> Execute Commands -> Edit/Run Script

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
   output "正在配置表: " & tab.name & vbCrLf
   if not tab.isShortcut then
      output "name: " & tab.name  & " comment: " & tab.comment & vbCrLf
      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
         output "name: " & col.name  & " comment: " & col.comment & vbCrLf
         if len(col.name) <> 0 then
            col.comment =col.name
         end if
         On Error Resume Next
      next
   end if
next
end sub