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

吕不为 — Sat, 19 Aug 2006 09:13:00 GMT

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

吕不为 2006-08-19 17:13 发表评论

IT博客-lvbuwei

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