Click above to get retro games delivered to your door ever month!

Syntax

DBLOOKUP( aArray )

Purpose

Scrolling lookup window for VALID clauses using TBrowse.

Arguments

     aArray -- an array of six elements:

     aArray[ 1 ] -- memory variable to fill in

     aArray[ 2 ] -- optional array of field expressions to display

     aArray[ 3 ] -- string expression to evaluate for return value

     aArray[ 4 ] -- four window coordinates

     aArray[ 5 ] -- 8-part colour string for TBrowse

     aArray[ 6 ] -- optional code block to execute on selection

Setup

Lookup table must be open and indexed.

Example

     LOCAL memvar := SPACE( 5 ), ;
           getlist := {}, ;
           cColorSpec := "+W/B,N/BG,W+/B,N/W,W/B,W+/W,R/W,B/R"

     USE CUSTOMER INDEX CUSTOME3
     CLEAR SCREEN

     @ 4, 10 SAY "Select a customer: " ;
             GET memvar PICTURE "@!" VALID ;
             DBLOOKUP( { @memvar, ;
                         NIL, ;
                         "Account_No", ;
                         { 12, 12, 20, 75 }, ;
                         cColorSpec, ;
                         { || .T. }, ;
                       } ;
                     )
     READ_IT()

Returns

Macro evaluation of aArray[ 3 ].

Side Effects

Fills in the memory variable.

Artful Calls

AAEXECUTE, PROPER

Source File

AA_DBLOO.PRG