i got Error when press a Key, after change RDD
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SEEK( 9409 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR( 3861 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1857 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 12219 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3681 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1114 )
Called from: .\DUALGRID.PRG => MAIN( 935 )
i do open DBF and use
- Code: Select all Expand view
- PROCEDURE SetRddNr( nRDD )
// nRDD := SP_nRDDlock()
// DO CASE
// CASE nRDD = DB_DBFLOCK_DEFAULT // 0
// CASE nRDD = DB_DBFLOCK_CLIPPER // 1 /* default Cl*pper locking scheme */
// CASE nRDD = DB_DBFLOCK_COMIX // 2 /* COMIX and CL53 DBFCDX hyper locking scheme */
// CASE nRDD = DB_DBFLOCK_VFP // 3 /* [V]FP, CL52 DBFCDX, SIx3 SIXCDX, CDXLOCK.OBJ */
// CASE nRDD = DB_DBFLOCK_HB32 // 4 /* Harbour hyper locking scheme for 32bit file API */
// CASE nRDD = DB_DBFLOCK_HB64 // 5 /* Harbour hyper locking scheme for 64bit file API */
// SET DBFLOCKSCHEME TO DB_DBFLOCK_HB64
// CASE nRDD = DB_DBFLOCK_CLIPPER2 // 6 /* extended Cl*pper locking scheme NTXLOCK2.OBJ */
// SET DBFLOCKSCHEME TO DB_DBFLOCK_HB64
// ENDCASE
IF hb_OSIS64BIT()
SP_nRDDlock( nRDD - 1 )
ELSE
IF nRDD = 6 // "NTXOBJ2"
SP_nRDDlock( nRDD )
ELSE
SP_nRDDlock( nRDD - 1 )
ENDIF
ENDIF
SET DBFLOCKSCHEME TO SP_nRDDlock()
RETURN
what is going wrong and "why" does "increment SEEK" will be active after change RDD Settings