如何在 Powerdesigner 中访问扩展集合的子记录？

编程问答 2022-05-02

问题描述

请帮帮我！

我创建的：

  • AbstractDataType_1
  • AbstractDataType_2
  • 表_1
  • 目标类型 = "AbstractDataType" 的本地扩展 (Profile\Table\Extended Collections\Collection_1) 中表的扩展集合

我将 Collection_1 链接到 Table_1。

并添加到此关系 AbstractDataType_1 和 AbstractDataType_2。

如何在 VB 脚本中读取 AbstractDataType_1.code？​​p>

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

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

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

解决方法

你们真的很亲密。

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.
collectionscollectionsvba