powerdesigner让注释显示

要让PowerDesigner中的注释显示，可以使用以下代码：

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl ' 当前模型
' 获取当前活动模型
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 a Physical Data model."
Else
ProcessFolder mdl
End If

' 这个过程将每个表、每个列和每个视图的名称复制到注释中
Private Sub ProcessFolder(folder)
Dim Tab ' 当前表
' 对于每个表
For Each Tab In folder.Tables
If Not Tab.IsShortcut Then
Tab.Comment = Tab.Name
Dim col ' 当前列
' 对于每个列
For Each col In Tab.Columns
col.Comment = col.Name
Next
End If
Next

Dim view ' 当前视图
' 对于每个视图
For Each view In folder.Views
If Not view.IsShortcut Then
view.Comment = view.Name
End If
Next

' 进入子包
Dim f ' 当前子包
For Each f In folder.Packages
If Not f.IsShortcut Then
ProcessFolder f
End If
Next
End Sub

这段代码将当前模型中每个表、列和视图的名称复制到注释中，以便在PowerDesigner中显示。