powerdesigner 执行脚本 将 comment 写入 name

参考网上答案: 只能用于 物理模型

 1 Option Explicit
 2 ValidationMode = True
 3 InteractiveMode = im_Batch
 4 
 5 Dim mdl 
 6 
 7 Set mdl = ActiveModel
 8 If (mdl Is Nothing) Then
 9    MsgBox "There is no current Model"
10 ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
11    MsgBox "The current model is not an Physical Data model."
12 Else
13    ProcessFolder mdl
14 End If
15 
16 Private sub ProcessFolder(folder)
17    Dim Tab
18    for each Tab in folder.tables
19       if not tab.isShortcut then
20          if (not isnull(tab.comment)) and (trim(tab.comment)<>"") then
21             tab.name = tab.comment
22          end if
23          Dim col 
24          for each col in tab.columns
25          if (not isnull(col.comment)) and  (trim(col.comment)<>"")   then
26             col.name= col.comment
27          end if
28          next
29       end if
30    next
31 
32    Dim view
33    for each view in folder.Views
34       if not view.isShortcut then
35          if (not isnull(view.comment)) and (trim(view.comment)<>"") then
36             view.name = view.comment
37          end if
38       end if
39    next
40 
41 end sub

 

posted @ 2015-01-27 16:12  hewep  阅读(268)  评论(0)    收藏  举报