Kofax DM API Manual do Utilizador descarregar pdf (Página 84)

64 CHAPTER 3

PCDLookup

vbCr & "you selected in the Typist field?"

strAns = MsgBox(strPrompt, vbYesNo, strTitle)

intAns = CInt(strAns)

If intAns = 6 Then

'User answered "Yes." Broaden search.

objLookup.AddSearchCriteria “TYPIST_ID", J_SMITH

'Also, delete filter on author name so it

'does not exclude J_SMITH as typist.

objLookup.ClearUserFilterCriteria

Else If intAns = 7

'User answered "No." Search is OK as is.

MsgBox "No change to search criteria."

End If

'Set the sort order for results.

strTitle = "SORT ORDER"

strPrompt = "Select the number of “ _

& “the Sort Order: " _

& vbCr & " 1 - Author, ascending sort " _

& vbCr & " 2 - Author, descending sort " _

& vbCr & " Other - Unsorted results "

strAns = InputBox(strPrompt, strTitle)

If IsNumeric(strAns) Then

intAns = CInt(strAns)

Else

intAns = 9 'Can be any integer.

End If

Select Case intAns

Case 1

'Sort by author, ascending order.

'The Boolean value that follows AUTHOR_ID can be

'anything except zero (or an expression that

'evaluates to zero).

objPCDLookup.AddOrderByProperty "AUTHOR_ID", 1

Case 2

'Sort by author, descending order.

objPCDLookup.AddOrderByProperty "AUTHOR_ID", 0

Case Else

1 2 ... 79 80 81 82 83 84 85 86 87 88 89 ... 527 528

Comentários a estes Manuais

Sem comentários