Pcdlookup – Kofax DM API User 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.
( 0 )
Do While objPCDLookup.
If objPCDLookup.
<> 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.
(0)
Do While objPCDLookup.
NextMetaRow
If objPCDLookup.
<> O Then
'Error reading metadata row. Process it.
End If
'Retrieve short name of the metadata property.
lstResultSet.AddItem _
objPCDLookup.
( _
"PROPNAME")
'Shows whether column is Visible: 0=No
lstResultSet.AddItem _
objPCDLookup.
( _
"VISIBLE")
'Long Name of the metadata property.
lstResultSet.AddItem _
objPCDLookup.
("TITLE")
'The lookup data associated with
'this metadata property.
lstResultSet.AddItem _
objPCDLookup.
("DATA")
lstResultSet.Show
MsgBox "ListBox displays metadata “ _
“for current row."
lstResultSet.Hide
lstResultSet.Clear