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

选择Tools----Execute commands----Edit/Run Script 执行下面的脚本可以批量的转换表，字段名的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