做设计的童鞋们，有时候会遇到给数百个表统一加字段的，或者是
修改某些列的情况。纯手工累个半死，还容易遗漏和犯错。研究了power designer 的脚本后，发现及其简单，你
要做的就是打开PD,按ctrl+shift+x键，弹出窗里粘贴下面的
代码运行即可，记得
修改为你的需求。这种
方法节省90%的时间。 下面第
一个代码是
增加列的，第二个是
修改数据列的
属性的。可以
修改列的
名称，编码，类型，等等。如果其他的需要参考，课打开PD的帮助，找
Meta model那个帮助项查看它的API,尽管那个API开起来很烦人。 下面的
代码在power designer 14上测试通过。 '演示用vb script给PD统一
增加列的 Option Explicit Dim mdl ' the current model Set mdl = ActiveModel Dim Tab 'running table Dim col_ModTime,col_ModPerson,col_CreatPersion,col_CreatTime ' 定义
属性变量 for each Tab in mdl.Tables if not tab.isShortcut then Set col_ModTime = Tab.Columns.CreateNew set col_ModPerson = Tab.Columns.CreateNew set col_CreatPersion=Tab.Columns.CreateNew set col_CreatTime=Tab.Columns.CreateNew col_CreatPersion.name = "创建人" col_CreatPersion.code = "CREATOR" col_CreatPersion.DataType = "VARCHAR2(20)" col_CreatTime.name = "创建日期" col_CreatTime.code = "CREATE_DATE" col_CreatTime.DataType = "DATE" col_ModPerson.name = "
修改人" col_ModPerson.code = "MODIFIER" col_ModPerson.DataType = "VARCHAR2(20)" col_ModTime.name = "
修改日期" col_ModTime.code = "MODIFY_DATE" col_ModTime.DataType = "DATE" end if next 在下面是，
修改符合条件的列的
代码： for each col in Tab.columns if col.name="SKU" then col.code="new_code" col.DataType="Date" end if next
