1
Option Explicit
2
ValidationMode = True
3
InteractiveMode = im_Batch
4
Dim mdl ' the current model
5
' get the current active model
6
Set mdl = ActiveModel
7
If (mdl Is Nothing) Then
8
MsgBox "There is no current Model "
9
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
10
MsgBox "The current model is not an Physical Data model. "
11
Else
12
ProcessFolder mdl
13
End If
14
' This routine copy name into comment for each table, each column and each view
15
' of the current folder
16
Private sub ProcessFolder(folder)
17
Dim Tab 'running table
18
for each Tab in folder.tables
19
if not tab.isShortcut then
20
' 表名赋给表注释
21
tab.comment = tab.name
22
Dim col ' running column
23
for each col in tab.columns
24
' 列名赋给列注释 引入的不能操作做错误处理
25
on error resume next
26
col.comment= col.name
27
next
28
end if
29
next
30
Dim view 'running view
31
for each view in folder.Views
32
if not view.isShortcut then
33
view.comment = view.name
34
end if
35
next
36
' go into the sub-packages
37
Dim f ' running folder
38
For Each f In folder.Packages
39
if not f.IsShortcut then
40
ProcessFolder f
41
end if
42
Next
43
end sub