IT人
相关图书

请问有谁知道怎么把pd中的name部分转化为comment呀?

所属分类:软件工程/管理 Power Designer
-----------------------------------------

如题,以前有个兄弟无意中发现pd可以直接把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 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 
if not tab.isShortcut then 
tab.comment = tab.name 
Dim col ' running column 
for each col in tab.columns 
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

--------------------------------------------------------

在模型转换的时候有一个选项:
generate name in empty comment
勾选上就产生了所有数据项的注释。
相关问题
    Copyright ◎ 1998 - 2007 编程资料网 All Rights Reserved