IFIX,VB读写脚本，PDB

Description 
This sample code will read data from an iFIX tag.

 

'declare a few objects 
Dim objWorkspace As Object 
Dim objDataItem As Object

'get reference to the workspace 
Set objWorkspace = CreateObject("Workspace.Application") 
'use the workspace.system object to obtain the OODB dataitem 
Set objDataItem = objWorkspace.System.FindObject("Fix32.FIX.AI1.F_CV")

'display the value in a msgbox 
MsgBox objDataItem.Value

objDataItem.Value = "75"