通过vba-script更改PowerDesigner中的属性

Question

我在PowerDesigner中有一个数据模型。我写了一个vba脚本，它将列的描述更改为列的注释值。它做得很好。当我查看列属性时，我可以看到新的描述。问题是，新描述没有出现在表概述中。仅当我打开列属性并使用ok按钮关闭它时，新描述才会显示在表概述中。我的模型中有很多列，所以...它与PowerDesigner中的对象层次结构有关吗？我的剧本：

option explicit
Dim kind, name, obj, c, a
kind = InputBox("(T)able or (V)iew")
name = InputBox("Enter name")
If kind = "T" Then
  Set obj = ActiveModel.FindChildByName(name, cls_table)
ElseIf kind = "V" Then
  Set obj = ActiveModel.FindChildByName(name, cls_view)
End If
For each c in obj.columns
  c.SetAttribute "Description", c.comment
Next