如何获得本地列表并将其设置在选择列表中？(VB，Infor PM)

Question

亲爱的用户们，

我必须在中编辑一个报表，而且我在使用Picklist超块中的列表时遇到了问题。Picklist用于打印我的报告中的不同产品，并且必须具有与Hyperblock相同的列表成员。下面的vb代码不起作用。我没办法拿到当地的名单。

Sub  btnPrintCenter_Click () 
    Dim sList,newMembers(0)
    lvScale.SetCurSel 0, true
    newMembers(0) = Application.GetlocalListDefinition as String
    Application.SetPickListMembers "hpProduct\Objektliste",newMembers
    'sList = "PickListManager[lvRayon\Objektliste][PickListRayon]" 
    'sReturn = Spreadsheet.PickListManager (sList, false)
    lvRayon.List = "ProductsSumaPrintTdBEPF"
End sub

Infor中的帮助文件提到了以下内容：

返回附加到HyperBlock对象的本地列表的XML定义。命名空间:电子表格

语法Visual (声明)

Public Function GetLocalListDefinition As String

我希望我已经清楚地表达了自己，请问是否有什么不清楚。提前感谢

Answer 1

经过多次反复试验，我找到了我的问题的答案。我使用的脚本如下：

Sub  btnPrintCenter_Click () 
Dim sList,newMembers(0)
lvScale.SetCurSel 0, true
newMembers(0) = Application.GetPickListMembers ("hpProduct\Local list")
Application.SetPickListMembers "PickListRayon\Objektliste",newMembers
sList = "PickListManager[hpProduct\Local list]"
sReturn = Spreadsheet.PickListManager (sList, false) 
End sub

使用GetPickListMembers，我将超级块本地列表归因于一个newMember。也许将来的某个时候有人会发现这是有用的。