PowerDesigner Comment与Name相互替换
2018-01-09 11:15
302 查看
从name替换comment
从comment替换name
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If ' This routine copy name into comment for each table, each column and each view ' of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.comment = tab.name Dim col ' running column for each col in tab.columns col.comment= col.name next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.comment = view.name end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub
从comment替换name
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name = tab.comment Dim col ' running column for each col in tab.columns if col.comment="" then else col.name= col.comment end if next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.name = view.comment end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub
相关文章推荐
- PowerDesigner Comment和name相互转化
- PowerDesigner comment与name相互复制
- PowerDesigner comment与name相互复制
- PowerDesigner Comment与name的相互装换
- PowerDesigner name和comment同步脚本,不覆盖手动更改内容
- PowerDesigner Comment To Name & Name To Comment VBS
- powerdesigner comment 写到 name 和 name 写到 comment
- 【转】PowerDesigner code、name显示设置 及 同时显示办法
- PD设置name与comment的相互复制
- PowerDesigner设置为不自动根据name填充code值
- PowerDesigner Code和Name
- POWER DESIGNER COMMENT CODE 自动填充
- Power Designer Check Model提示Role name uniqueness
- 表名的中文及字段的name和comment的替换问题
- PowerDesigner设计Name和Comment 替换
- PowerDesigner中pdm物理模型中 Name和Comment相互转换
- powerDesigner设置name不自动等于code
- PowerDesigner code、name显示设置 及 同时显示办法
- 转载 PowerDesigner Name/Code自动调整
- PowerDesigner code、name显示设置 及 同时显示办法