Power Designer将表字段注释转换为模型

 1 Option Explicit
 2 ValidationMode = True
 3 InteractiveMode = im_Batch
 4  
 5 Dim mdl ‘the current model
 6  
 7 ‘get the current active model
 8 Set mdl = ActiveModel
 9 If (mdl Is Nothing) Then
10 MsgBox "There is no current Model"
11 ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
12 MsgBox "The current model is not an Physical Data model."
13 Else
14 ProcessFolder mdl
15 End If
16  
17 ‘This routine copy name into code for each table, each column and each view
18 ‘of the current folder
19 Private sub ProcessFolder(folder)
20  
21 Dim Tab ‘running table
22 for each Tab in folder.tables
23 if not tab.isShortcut then
24 if len(tab.comment) <> 0 then
25 tab.name = tab.comment
26 end if
27 On Error Resume Next
28 Dim col ‘running column
29 for each col in tab.columns
30 if len(col.comment) <>0 then
31 col.name =col.comment
32 end if
33 On Error Resume Next
34 next
35 end if
36 next
37 end sub