In some circumstances, when the user selects a browse with a mouse click on a row ( say 4th row ) the xbrowse paints the first row information on the clicked row. Thereafter with arrow keys we can not go up but we can go down. 2nd row is painted on 5th row and so on. Please see the screen shot for example:
This is observed occasionally several times, but I could not reproduce it earlier. Now I have reproduced it in one case and give the code below. This code uses c:\fwh\samples\customer.dbf. The code creates necessary indexes and shows parent child scoped browses. The child table is related to the parent table with ordSetRelation. I also provided an option to choose either txbtowse or twbrowse. It can be seen the TWBrowse ( also TCBrowse) works perectly, and the problem is only with TXBrowse.
- Code: Select all Expand view
#include 'fivewin.ch'
#include 'xbrowse.ch'
#define ORDREL
REQUEST DBFCDX
function main()
OpenData()
if alert( 'Choose Browse', { 'XBrowse', 'WBrowse' } ) == 1
testxbrw()
else
testwbrw()
endif
close data
return nil
function testxbrw
local odlg, obrwSt, oBrw, ocol
define dialog odlg size 800,340 pixel title 'TXBROWSE'
@ 15,100 say 'XBROWSE CHILD TABLE' size 290,10 pixel of odlg center
obrwSt := txbrowse():new(odlg)
obrwSt:ntop := 30
obrwSt:nleft := 10
obrwSt:nright := 80
obrwSt:nbottom := 150
obrwSt:calias := 'state'
ocol := obrwSt:addcol()
ocol:cheader := 'State'
ocol:bstrdata := {||state->State}
oBrwSt:SetRDD()
obrwSt:createfromcode()
obrw := txbrowse():new(odlg)
obrw:ntop := 30
obrw:nleft := 100
obrw:nright := 390
obrw:nbottom := 150
obrw:calias := 'cust'
ocol := obrw:addcol()
ocol:cheader := 'No'
ocol:bstrdata := {||str( cust->(ordkeyno()),4)}
ocol := obrw:addcol()
ocol:cheader := 'First'
ocol:bstrdata := {||cust->first}
ocol := obrw:addcol()
ocol:cheader := 'Last'
ocol:bstrdata := {||cust->last}
ocol := obrw:addcol()
ocol:cheader := 'City'
ocol:bstrdata := {||cust->City}
obrw:setRDD()
obrw:CreateFromCode()
@ 160,100 SAY eval( obrw:bKeyNo ) picture '9999' size 40,10 pixel of odlg right update
@ 160,160 SAY eval( obrw:bKeyCount ) picture '9999' size 40,10 pixel of odlg right update
oBrwSt:bChange := {||RowChange(oBrwSt, oBrw)}
oBrw:bChange := {||oDlg:update() }
activate dialog odlg centered ;
on init oBrwSt:SetFocus()
return nil
function testwbrw
local odlg, obrwSt, oBrw, ocol
define dialog odlg size 800,340 pixel title 'TWBROWSE'
@ 15,100 say 'XBROWSE CHILD TABLE' size 290,10 pixel of odlg center
@ 30,10 LISTBOX oBrwSt ;
FIELDS state->state ;
HEADERS 'State' ;
SIZE 50,120 PIXEL OF oDlg ;
ALIAS 'STATE'
@ 30,100 LISTBOX oBrw ;
FIELDS str(cust->(Ordkeyno()),4), cust->first, cust->last, cust->city ;
HEADERS 'No', 'First', 'Last', 'City' ;
SIZE 290,120 PIXEL OF odlg ;
ALIAS 'CUST'
obrw:bLogicLen := {||cust->(ordkeycount())}
// @ 160,100 SAY eval( obrw:bKeyNo ) picture '9999' size 40,10 pixel of odlg right update
@ 160,160 SAY eval( obrw:blogiclen ) picture '9999' size 40,10 pixel of odlg right update
oBrwSt:bChange := {||RowChange(oBrwSt, oBrw)}
oBrw:bChange := {||oDlg:update() }
activate dialog odlg centered ;
on init oBrwSt:SetFocus()
return nil
static function RowChange( oBrwSt, oBrw )
#ifndef ORDREL
cust->(OrdScope(0,state->state))
cust->(ordscope(1,state->state))
#endif
cust->(dbgotop())
oBrw:gotop()
oBrw:Refresh(.t.)
oBrw:oWnd:update()
return nil
static function OpenData
field state, city, first
local cfile := '\fwh\samples\customer'
ferase( cfile + '.cdx' )
use (cfile) exclusive via 'DBFCDX'
index on state tag state unique
index on state + city + first tag city
use
use (cfile) new alias state shared via 'DBFCDX'
set order to tag state
go top
use (cfile) new alias cust shared via 'DBFCDX'
set order to tag city
go top
#ifdef ORDREL
// state->( ordsetrelation( 'cust', {||state}, 'state' ) )
// state->( dbgotop() )
// scoped relation can be set either way
state->( dbsetrelation( 'cust', { || State }, 'State', .t. ) )
state->( dbgotop() )
#else
cust->( ordscope( 0, state->state ) )
cust->( ordscope( 1, state->state ) )
cust->( dbgotop() )
#endif
return nil
This program can be compiled and run straight away. No setup is required as long as the customer.dbf exists in \fwh\samples folder.
On the left parent browse of States is presented and on the right child browse of customers in that State is presented. The problem comes when a customer (other than the first line) is selected with a mouse click in the child browse. WBrowse works perfectly but not XBrowse.
Note: XBrowse works well when scope is set on child table on bhchange of the parent browse, but fails with scoped relation. The problem is NOT with scoped relation, because WBrowse works well with scoped relations also. Same is the problem with DBFCDX and also ADS. Therefore the problem is with XBrowse only.
