Kofax DM API - Manual (Page 86)

66 C HAPTER 3
PCDLookup
lstResultSet.Clear
'Set pointer position to row 0 in the result set.
'NextRow will then increment it to the first data
'row.
objPCDLookup. SetRow ( 0 )
Do While objPCDLookup. NextRow
If objPCDLookup. ErrNumber <> 0 Then
'Error reading data row. Process it.
End If
'Set pointer position to row 0 in the metadata
'result set. NextMetaRow will then increment
'it to the first data row.
objPCDLookup. SetMetaRow (0)
Do While objPCDLookup. NextMetaRow
If objPCDLookup. ErrNumber <> O Then
'Error reading metadata row. Process it.
End If
'Retrieve short name of the metadata property.
lstResultSet.AddItem _
objPCDLookup. GetMetaPropertyValue ( _
"PROPNAME")
'Shows whether column is Visible: 0=No
lstResultSet.AddItem _
objPCDLookup. GetMetaPropertyValue ( _
"VISIBLE")
'Long Name of the metadata property.
lstResultSet.AddItem _
objPCDLookup. GetMetaPropertyValue ("TITLE")
'The lookup data associated with
'this metadata property.
lstResultSet.AddItem _
objPCDLookup. GetMetaPropertyValue ("DATA")
lstResultSet.Show
MsgBox "ListBox displays metadata “ _
“for current row."
lstResultSet.Hide
lstResultSet.Clear