如果在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