Xbrowse lSeekBar, How to do Set Relation to

[Jorge_T]

I am relating two databases, with the corresponding indexed fields, I use Xbrowse lSeekBar to be able to search.

It allows me to search all the fields in the main table but NOT the related table field.

In the example, I can't search for "State name"

Thanks,

Code: Select all  Expand view

#include "fivewin.ch"
REQUEST DBFCDX
//----------------------------------------------------------------------------//
function Main()

    local oDlg, oBrw  
    *SetGetColorFocus()
   
    FERASE( "STATES.CDX" )
    Use STATES alias "states" NEW exclusive VIA "DBFCDX"
    FW_CdxCreate()
    Set order to TAG CODE
    go top
   
    FERASE( "CUSTOMER.CDX" )
    Use CUSTOMER alias "customer" NEW exclusive VIA "DBFCDX"
    FW_CdxCreate() 
    go top
   
    SET RELATION to field->state INTO states

    Define Dialog oDlg size 1000,600 PIXEL TRUEPIXEL
   
    @ 10,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
        Columns "FIRST","LAST","CITY","STATE","states->name";
        Headers "First","Last","City","State Code","State Name";
        DATASOURCE "customer" ;
        AUTOCOLS AUTOSORT CELL LINES NOBORDER
   
        WITH OBJECT oBrw
            :nMarqueeStyle := MARQSTYLE_HIGHLROW
            :lSeekBar:= .T.
            :lIncrFilter   := .F.      
            :CreateFromCode()
        END

    Activate dialog oDlg centered
return nil
 

[img]

[/img]

[nageswaragunupudi]

Code: Select all  Expand view

/*
* XBrowse Incremental seek on fields from
* related tables
*
*/

#include "fivewin.ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

    local oDlg, oBrw

    FERASE( "STATES.CDX" )
    USE STATES ALIAS "STATES" NEW EXCLUSIVE VIA "DBFCDX"
    FW_CdxCreate()
    SET ORDER TO TAG CODE
    GO TOP

    FERASE( "CUSTOMER.CDX" )
    USE CUSTOMER ALIAS "CUSTOMER" NEW EXCLUSIVE VIA "DBFCDX"
    FW_CdxCreate()
    GO TOP

    SET RELATION TO FIELD->STATE INTO STATES
    GO TOP
    INDEX ON UPPER(STATES->NAME) TAG STATENAME TO TEMP TEMPORARY ADDITIVE
    SET ORDER TO TAG FIRST
    GO TOP

    DEFINE DIALOG ODLG SIZE 1000,600 PIXEL TRUEPIXEL

    @ 10,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
        Columns "FIRST","LAST","CITY","STATE","STATES->NAME";
        Headers "First","Last","City","State Code","State Name";
        DATASOURCE "customer" ;
        AUTOSORT CELL LINES NOBORDER  // do not use AUTOCOLS when you specify columns

        WITH OBJECT oBrw
            :nMarqueeStyle := MARQSTYLE_HIGHLROW
            :lSeekBar:= .T.
            :lIncrFilter   := .F.
            WITH OBJECT :aCols[ 5 ]
               :cOrdBag    := "TEMP"
               :cSortOrder := "STATENAME"
            END
            :CreateFromCode()
        END

    ACTIVATE DIALOG oDlg CENTERED

return nil