做设计的童鞋们，有时候会遇到给数百个表统一加字段的，或者是修改某些列的情况。纯手工累个半死，还容易遗漏和犯错。研究了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 原文链接：https://www.f2er.com/vb/258169.html