powerDesigner将name的值赋值给comment

本文主要是介绍powerDesigner将name的值赋值给comment，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

操作步骤：
Tools->Execute Commands->Edit/Run Scripts

在弹出的框中，粘贴如下命令，并执行Run

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 nextDim   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

这篇关于powerDesigner将name的值赋值给comment的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---