Read 方法示例

下列示例：

• 创建一个数据系统ocx FDS;
• 在组集中添加一个数据组DataGroup1；
• 在DataItems集中添加一个DataItem；
• 读取组DataGroup1；
• 读取DataItem

'创建数据系统OCX

Dim FDS As Object

Set FDS = CreateObject("FixDataSystems.Intellution FD Data System Control")

'在组集中添加一个组

FDS.Groups.Add ("DataGroup1")

FDS.Groups.Item("DataGroup1").DataItems.Add("Fix32.THISNODE.AI1.F_CV")

'读取 DataGroup1

FDS.Groups.Item("DataGroup1").Read

'读取DataItem

FDS.Groups.Item("DataGroup1").DataItems.Item(1).Read