Write方法示例
2015-12-15 22:24:07   来源：   评论：0 点击：

下列示例：

• 创建一个数据系统ocx FDS;

• 在 ；

• 写入组 DataGroup1的值；

• 把值45写入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").Write

'写入DataItem

FDS.Groups.Item("DataGroup1").DataItems.Item(1).Write(45)