A xBrowse index-header-problem with multiple open files.

[ukoenig]

Hello,

I have a xBrowse-problem on header-click to activate the index
I open 7 files and switch between them with a radio-change.

I created the index like :

Code: Select all  Expand view

FOR I := 1 TO 7
   X := LTRIM(STR(I))
   IF NET_USE ( c_Path + "SAMPLES&X" + ".DBF", "SAMPLES&X", 3,.F. ) = .T. // own network function
       FW_CdxCreate()
   ELSE
       MsgInfo( "Netork ERROR", "SAMPLES&X.dbf" )
       RETURN( NIL )
    ENDIF   
NEXT
 

The filechange ( DBSELECTAREA ) works fine and is tested with the function ORDERBAGNAME()
the index is included automaticly with the filename.
Maybe something wrong with xBrowse using ALIAS cFileName index not detected ?
The xBrowse headers are showing the up / down arrows that a index exists but doesn't always work..

@ 10,20 XBROWSE oBrw SIZE 580, -75 PIXEL OF oDlg ;
COLUMNS "TOPICNO", "FORUM", "LIKE", "T_DELETE", "DATE", "AUTHOR", "INFO" ;
COLSIZES 50, 60, 45, 45, 70, 120, 110 ;
HEADERS "No.", "Forum", "Like", "Del.", "Date", "Author", "Filter or Info" ;
AUTOSORT LINES NOBORDER FONT oMono ;
ALIAS cFileName UPDATE // cFilename = SAMPLES1.dbf - SAMPLES7.dbf



changing the file to be displayed with radiochange works fine but the xBrowse header-click doesn't work ( only at startup for the 1. file )

any idea

regards
Uwe

[ukoenig]

Some more tests :
I added DBF-name and Index-name infos to the header
to be sure the selected workarea is used.

The index-selection in xBrowse works only at startup-
After a file change the arrows up / down are shown but do not work anymore.
There is a selected working area and index !!!

Because I don't want to play around with the original
I created a extra solution reduced to the minimum to test

The todolist

1. the connection to a different forum not only the english
2. the xBrowse index on header click
3. highlighted keywords inside the source-text

the source is included to make the needed changes

Download
http://www.pflegeplus.com/DOWNLOADS/Forum3.zip



I also tested / changed :
// ALIAS cFilename UPDATE

@ 10,20 XBROWSE oBrw SIZE 580, -80 PIXEL OF oDlg ;
COLUMNS "TOPICNO", "FORUM", "LIKE", "T_DELETE", "DATE", "AUTHOR", "INFO" ;
COLSIZES 50, 60, 45, 45, 70, 120, 110 ;
HEADERS "No.", "Forum", "Like", "Del.", "Date", "Author", "Filter or Info" ;
AUTOSORT LINES NOBORDER FONT oMono ;
ALIAS ORDBAGNAME("TOPICNO") UPDATE
// returns the indexname ( the filename is the same returned from DBF() )

NO difference !

Inside the filechange-function and new DBFSELECTAREA
the following is included to define the new xBrowse-alias.

oBrw:cAlias := Alias()
same result :
oBrw:cAlias := ORDBAGNAME("TOPICNO"), oBrw:Refresh(), ; // Alias()

regards
Uwe