您如何循环浏览关系中的项目

Question

这是当前的代码：

Class %Utcov.Test Extends %RegisteredObject
{
ClassMethod listClasses(ns As %String, projectName As %String)
{
    // Switch namespaces to the new one
    new $namespace
    set $namespace = ns
    // Grab our project, by name; fail otherwise
    // TODO: failing is CRUDE at this point...
    #dim project as %Studio.Project
    #dim status as %Status
    // TODO: note sure what the "concurrency" parameter is; leave the default
    // which is -1
    set project = ##class(%Studio.Project).%OpenId(projectName, /* default */, .status)
    if ('status) {
        write "Argh; failed to load", !
        halt // meh... Ugly, f*ing ugly
    }
    w project.Items
}
ClassMethod main()
{
    do ..listClasses("USER", "cache-tort-git")
}
}

首先：我知道代码很糟糕...但这就是学习曲线，我最终会做得更好......我在这里要解决的问题是这一行：

w project.Items

在控制台上，它当前打印：

2@%Library.RelationshiptObject

但我想做的当然是循环浏览这些对象，根据文档，这些对象是 %Studio.ProjectItem 的"实例"。

我如何循环浏览这些？ WRITE不会削减它，事实上我从一开始就猜测它不会......我只是无法弄清楚这是如何在对象脚本中完成的：/

Answer 1

当你用

w project.Items写的对象时，你得到了这样的字符串2@%Library.RelationshiptObject，这个字符串可能有助于理解我们得到的对象，在这种情况下它是类%Library.RelationshiptObject的对象，当你在文档中打开这个类时，你可能会找到一些可以帮助你的方法。
在这里你可以找到一些例子，如何在对象方式和SQL中使用关系。

Answer 2

Set tKey = ""
For {
    ;tItem will be the first item in your list which will be ordered by OREF
    Set tItem = project.Items.GetNext(.tKey)
    Quit:(tKey = "")
    ;Do whatever you want with tItem
}