powerdesign中批量转换表，字段名为大写的脚本

选择Tools----Execute commands----Edit/Run Script 执行下面的脚本可以批量的转换表，字段名的code为大写
[code]Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl


Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "当前模型为空或不可用"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
MsgBox "当前模型不是物理模型"
Else
ProcessFolder mdl
End If


Private sub ProcessFolder(folder)
Dim Tab '遍历表
for each Tab in folder.tables
if not tab.isShortcut then
tab.code = UCase(tab.code)
Dim col '遍历表中的字段
for each col in tab.columns
col.code= UCase(col.code)
next
end if
next

Dim view '遍历视图
for each view in folder.Views
if not view.isShortcut then
view.code = UCase(view.code)
end if
Next

Dim f '遍历所有的包
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
[/code]