Изменение атрибутов в PowerDesigner через vba-скрипт

Question

У меня есть модель данных в PowerDesigner. Я написал vba-скрипт, который изменяет описание столбца на значение комментария столбца. Это хорошо. Когда я смотрю на свойства столбца, я вижу новое описание. Проблема в том, что новое описание не появляется в обзоре таблиц. Только когда я открываю свойства столбца и закрываю его кнопкой ОК, новое описание появляется в обзоре таблиц. В моей модели много столбцов, так что... это как-то связано с иерархией объектов в 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