很多人都会想在使用PowerDesigner设计完数据库时自动将name列值在输出时自动复制到comment列
运行脚本 Tools->Execute Commands->Edit/Run Scripts(快捷键:Ctrl+Shift+X)
VB脚本如下:
' 把pd中那么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