PowerDesigner技巧集4 ---- 用vbscript给每张表增加字段

运行如下的脚本可以为PDM模型中的每张表增加二个字段（修改时间和操作人）

Option Explicit Dim mdl ' the current model Set mdl = ActiveModel Dim Tab 'running table Dim col_ModTime, col_ModPerson ' 定义属性变量 for each Tab in ActiveModel.Tables Set col_ModTime = Tab.Columns.CreateNew set col_ModPerson = Tab.Columns.CreateNew col_ModTime.name = "修改时间" col_ModTime.code = "Modify Time" col_ModTime.DataType = "Date" col_ModPerson.name = "操作人" col_ModPerson.code = "operation person" col_ModPerson.DataType = "VARCHAR2(100)" next