1

AutEclFieldList.Count 返回 1 而不是屏幕上的字段数。这发生在同事会议上。在我自己的会话中，我收到了数字 122，这在标签和数据字段的总数上似乎是正确的。

我们都有版本 12.0 和 20170427 S - 12.0.2.0 我已经像他一样将我的 HostCodePage 设置为“500 Belgium MNCS”，但它仍然可以在我的电脑上运行。

我正在比较 2 个会话的大型机设置，但找不到有影响的东西。

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]

Dim NumFields
Dim TextStr
Dim autECLPSObj
Dim autECLConnList
Dim ObjCtrlC

Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")

autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle)
autECLPSObj.autECLFieldList.Refresh
NumFields = autECLPSObj.autECLFieldList.Count

MsgBox "Numfields : " & NumFields
4

2 回答 2

0

尝试指定确切的会话名称而不是浮点数，并在每次集线器重新启动后尝试运行一次自动化。我遇到过类似的错误，其中一个会话不起作用，而另一个会话在我的同一台 PC 中起作用。我相信这是一个集线器连接/会话而不是编码......仍然没有弄清楚为什么。它在几乎每个新的 Hub 会话的第一次失败。

于 2019-08-28T02:56:02.630 回答
0

不是IBM 主机访问类库自动化对象方面的专家，只是查看它似乎建议的文档；

来自主机访问类库自动化对象文档中的autECLConnList 类

刷新

Refresh 方法获取所有已启动连接的快照。

笔记：

您应该在访问集合之前调用此方法，autECLConnList以确保您拥有当前数据。

上面的代码不会Refresh()针对autECLConnList集合调用，因此其他会话可能需要刷新连接。建议添加；

autECLConnList.Refresh

紧随其后；

Set autECLConnList = CreateObject("PCOMM.autECLConnList")
于 2019-01-15T18:52:42.667 回答