PowerDesigner中,显示namecodecomment的需求常见于数据建模中。以下是解决方案:

问题描述:在PowerDesigner 9.5及以上版本,设置同时显示namecode的方法失效。

解决方法:

1. 选中PDM模型中所有要操作的表。

2. 执行以下VB脚本(快捷键ctrl+shift+x):

vb

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 an Physical Data model.\"

Else

ProcessFolder mdl

End If

Private Sub ProcessFolder(folder)

On Error Resume Next

Dim Tab

For Each Tab In folder.tables

If Not Tab.isShortcut Then

Tab.name = Tab.comment

Dim col

For Each col In Tab.columns

If col.comment <> \"\" Then

col.name = col.comment

End If

Next

End If

Next

End Sub

运行此脚本后,您将能够在PowerDesigner中同时显示namecodecomment