时间戳

首页 > 解决方案 > autECLFieldList.count 返回 1 而不是屏幕上的字段数

vbscript - autECLFieldList.count 返回 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

标签： vbscript3270ibm-pcomm

解决方案

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

推荐阅读