Powerdesigner中如何访问Extended Collection的子记录？

Question

请帮帮我！

我创建了：

AbstractDataType_1
AbstractDataType_2
Table_1
目标类型 =“AbstractDataType”

然后我将 Collection_1 链接到 Table_1。

并添加到此关系 AbstractDataType_1 和 AbstractDataType_2。

如何在 VB-script 中读取 AbstractDataType_1.code？

应该用什么代替“???????”下面？

应该是什么而不是“[???????]”？

Dim object, coll
Set object = ActiveModel.FindChildByName("Table_1",cls_Table)
Set coll = object.GetExtendedCollection("Collection_1")
for each coll_member in coll.??????
    output coll_member.[??????.]Code
next

Answer 1

你们真的很亲近。

option explicit
Dim object, coll, coll_member
Set object = ActiveModel.FindChildByName("Table_1",cls_Table)
Set coll = object.GetExtendedCollection("Collection_1")
for each coll_member in coll
    output coll_member.Code
next

VB Script started on 5/10/2021 at 3:18:03 PM
TYPE_1
TYPE_2
VB Script terminated on 5/10/2021 at 3:18:03 PM.

Powerdesigner中如何访问Extended Collection的子记录？

How to access child records of Extended Collection in Powerdesigner?

collections

vba

powerdesigner