在Powerdesigner中,根据已有字段的Name值替换Code相同的Name的值

如果在powerdesigner中有一个表我已经把名子和你码对应好了.

比如Name是年,Code是year,那么怎么把别的表中的Code是Year的Name设成年呢?

用以下代码即可,哈哈.调好了.

Dim nb

nb=ActiveSelection.Count

if nb=0 then

Output "No selected Objects"

end if

dim obj

Dim d '创建一个变量 and (not d.Exists(col.Code))

Set d = CreateObject("Scripting.Dictionary")

for Each obj in ActiveSelection

for each col in obj.Columns

if (col.Code<>col.Name) and (not d.Exists(col.Code))then

Output "--"+obj.Name+"."+obj.Code+"="+col.Name+"."+col.Code

d.Add col.Code,col.Name

end if

next

next

for Each obj in ActiveSelection

for each col in obj.Columns

if (col.Code=col.Name) and (d.Exists(col.Code) )then

Output col.Name+"."+col.Code+"."+d.Item(col.Code)

col.Name=d.Item(col.Code)

end if

next

next