PowerDesigner--comment和name互相复制
2015-05-09 17:36
381 查看
1、comment复制到name 脚本代码:
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl
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)
Dim Tab
for each Tab in folder.tables
if not tab.isShortcut then
tab.name=tab.comment
Dim col
for each col in tab.columns
col.name=col.comment
next
end if
next
end sub
2、name复制到comment 脚本代码:
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl
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)
Dim Tab
for each Tab in folder.tables
if not tab.isShortcut then
tab.comment=tab.name
Dim col
for each col in tab.columns
col.comment=col.name
next
end if
next
end sub
复制上述脚本,在PowerDesigner中依次点击:Tools->Execute Commands->Edit/Run Script,粘贴代码到下面的文本框,点击 Run 按钮即可实现相应的复制。
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl
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)
Dim Tab
for each Tab in folder.tables
if not tab.isShortcut then
tab.name=tab.comment
Dim col
for each col in tab.columns
col.name=col.comment
next
end if
next
end sub
2、name复制到comment 脚本代码:
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl
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)
Dim Tab
for each Tab in folder.tables
if not tab.isShortcut then
tab.comment=tab.name
Dim col
for each col in tab.columns
col.comment=col.name
next
end if
next
end sub
复制上述脚本,在PowerDesigner中依次点击:Tools->Execute Commands->Edit/Run Script,粘贴代码到下面的文本框,点击 Run 按钮即可实现相应的复制。
相关文章推荐
- 【转】PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- 利用VBA把PowerDesigner的comment复制到name
- PowerDesigner Name和Comment 互相转化问题
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 12.5 开启注释列 将Comment(注释)及Name(名称)内容互相COPY的VBS代码 根据名称生成注释(完整示例)
- 【转】PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 12.5 开启注释列 将Comment(注释)及Name(名称)内容互相COPY的VBS代码 根据名称生成注释(完整示例)
- PowerDesigner中NAME和COMMENT的互相转换
- PowerDesigner中name与comment互相转换脚本
- PowerDesigner 把Comment复制到name中和把name复制到Comment
- 使用PowerDesigner对NAME和COMMENT互相转换
- PowerDesigner 从数据库反向生成Pdm时把Comment复制到Name中,从PowerDesigner导入数据库时把Name复制到Comment
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 把Comment复制到name中和把name复制到Comment
- PowerDesigner里面将表中name列值复制到comment列
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 把Comment复制到name中和把name复制到Comment .