powerdisgin中生成sql时把name生成comment

在菜单 tools-> Execute Commends->Edit/Run script... 中执行以下脚本，然后在列中加入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 the current folder 
Private sub ProcessFolder(folder) 
Dim Tab 'running table 
for each Tab in folder.tables 
if not tab.isShortcut then  
'把表明作为表注释，其实不用这么做 
tab.comment = tab.name 
Dim col ' running column 
for each col in tab.columns 
'把列name和comment合并为comment  
col.comment= col.name 
next 
end if 
next 
Dim view 'running view 
for each view in folder.Views 
if not view.isShortcut then 
view.comment = view.name 
end if 
next 
' go into the sub-packages 
Dim f ' running folder 
For Each f In folder.Packages 
if not f.IsShortcut then  
ProcessFolder f 

end if 

Next 

end sub

（以上脚本来自网络，出处不详。）

运行后，会把name列内容copy到comment 列中