PowerDesigner 批量添加字段

Option Explicit

Dim mdl ' the current model

Set mdl = ActiveModel

Dim Tab 'running table

Dim col_1

Dim col_2

Dim col_3

Dim col_4

' 定义属性变量

for each Tab in ActiveModel.Tables

	Set col_1 = Tab.Columns.CreateNew

	Set col_2 = Tab.Columns.CreateNew

	Set col_3 = Tab.Columns.CreateNew

	Set col_4 = Tab.Columns.CreateNew

	'添加公共字段 by Sinu

	col_1.name = "创建人"

	col_1.code = "CJR"

	col_1.DataType = "varchar(50)"

	col_1.comment= "创建人"

	col_2.name = "创建时间"

	col_2.code = "CJSJ"

	col_2.DataType = "datetime"

	col_2.comment= "创建时间"

	col_3.name = "修改人"

	col_3.code = "XGR"

	col_3.DataType = "varchar(50)"

	col_3.comment= "修改人"

	col_4.name = "修改时间"

	col_4.code = "XGSJ"

	col_4.DataType = "datetime"

	col_4.comment= "修改时间"

next

MsgBox "success"