Only I not have the source code and I not remember how I made it ( I have the exe)
Now it is no possible why ?
the error
- Code: Select all Expand view
- Application
===========
Path and name: C:\Work\Errori\INDEX_XBROWSE\test.Exe (32 bits)
Size: 2,161,152 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
FiveWin Version: FWHX 12.03
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 04/01/13, 21:07:34
Error description: Error DBCMD/2001 Workarea not in use: ORDKEYCOUNT
Stack Calls
===========
Called from: => ORDKEYCOUNT( 0 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETRDD( 3800 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 407 )
Called from: => TXBROWSE:KEYCOUNT( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1182 )
Called from: test.prg => INDICES( 60 )
Called from: test.prg => (b)TEST( 26 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 465 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 656 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1408 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 980 )
Called from: test.prg => TEST( 34 )
the test
- Code: Select all Expand view
- #include "fivewin.ch"
#include "xbrowse.ch"
#include "ord.ch"
REQUEST DBFCDX
Static oWnd
Function Test()
Local oBrw
RDDSETDEFAULT( "DBFCDX" )
USE C:\work\FWH\SAMPLES\CUSTOMER
DEFINE FONT oFont NAME 'Tahoma' SIZE 0, -14
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 75 ;
TITLE "test Index on xbrowse" ;
MENU BuildMenu()
DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007
DEFINE BUTTON OF oBar ACTION Indices(oBrw);
RESOURCE "Index" PROMPT "Index"
@ 0, 0 XBROWSE oBrw OF oWnd ALIAS "Customer"
oBrw:CreateFromCode()
oWnd:oClient = oBrw
ACTIVATE WINDOW oWnd
RELEASE FONT oFont
return nil
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&One"
MENUITEM "&Two"
MENUITEM "&Three"
ENDMENU
return oMenu
Function Indices( oBrw)
USE C:\work\FWH\SAMPLES\CUSTOMER ALIAS CUST
INDEX ON CITY TAG CITY TO cust
oBrw:refresh()
return nil
