FiveTech Software tech support forums

... oBrw:SetFocus() ) Function Giverows (oBrw) local n,uBook,nAt local aTmp:= {} For n = 1 to len(oBrw:aselected) uBook := Eval( oBrw:bBookMark ) nAt := Ascan( oBrw:aSelected, uBook ) aCopy:= aclone(oBrw:aArrayData[ nAt ]) Next return acopy

hi, in c:\fwh\source\classes\xbrowse.prg i found often "BookMark","bBookMark" and "SQLRDD_BookMark" what are "Bookmark" for ... have no Idea :idea: can somebody point me to a Sample where "BookMark" are used ... or ...

This code: DEFAULT ::bKeyNo     := ::bBookMark, ; ::bBookMark is { |x| If( x == nil, RECNO(), DBGOTO( x ) ) } This works well if the DBF is in natural order (with no index set) and when no filter is set. If the DBF is set to an index or if ...

... aCols[ nLast+1], nHeight, lHighLite, .t., nFor, 0 ) endif 5. method paintdata() class txbrwcolumn if ::bStrData != nil.and. !EVAL(::obrw:bBookMark)==EVAL(::obrw:bkeyCount)+1,.t.); .or.::obrw:lgetbar.and.nPaintRow<=0 if ::obrw:lgetbar.and.nPaintRow==-1 cdata:=::cf1 elseif ::obrw:lgetbar.and.nPaintRow==0 ...

... | ( ::cAlias )->( DbSkipper( IfNil( n, 1 ) ) ) },; ::bBof := {|| ( ::cAlias )->( Bof() ) },; ::bEof := {|| ( ::cAlias )->( Eof() ) },; ::bBookMark := {| n | iif( n == nil .or. n == 0 ,; ( ::cAlias )->( RecNo() ) ,; ( ::cAlias )->( DbGoto( n ) ) ) } // error aquí ?? en la referencia ...

... pregunta y revisa METHOD Select( nOperation ) CLASS TXBrowse, saludos... :shock: lHighLite := ::lMultiSelect .and. ( Ascan( ::aSelected, Eval( ::bBookMark ) ) > 0 ) if ::lMultiSelect .and. ( nStyle == MARQSTYLE_HIGHLROWMS .or. ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 ) lHighLite := ( Ascan( ...

Let us be clear about what oBrw:BookMark means. oBrw:bBookmark is defined as { |n| If( n == nil, RecNo(), DbGoTo( n ) } for RDD and { |u| If( u == nil, oRs:BookMark, oRs:BookMark := u ) } for RecordSet. oBrw:BookMark is the same as RecNo() for DBF ...

... Eval( ::bOnSkip, Self ), ; ::nArrayAt - nOld }, ; ::bBof := { || ::nArrayAt < 1 }, ; ::bEof := { || ::nArrayAt > Eval( ::bKeyCount ) }, ; ::bBookMark := { | n | If( n == nil, ::nArrayAt, ; ( ::nArrayAt := n, Eval( ::bOnSkip, Self ), n ) ) }, ; ::bKeyNo := ::bBookMark, ; ::bKeyCount := { ...

... look the source code xBrowse in Method SETRDD Unmark this lines elseif ( ::cAlias )->( RddName() ) == "SQLRDD" DEFAULT ::bKeyNo := ::bBookMark, ; ::bKeyCount := { || ( ::cAlias )->( LastRec() ) }

... pregunta y revisa METHOD Select( nOperation ) CLASS TXBrowse, saludos... :shock: lHighLite := ::lMultiSelect .and. ( Ascan( ::aSelected, Eval( ::bBookMark ) ) > 0 ) if ::lMultiSelect .and. ( nStyle == MARQSTYLE_HIGHLROWMS .or. ::nMarqueeStyle == MARQSTYLE_HIGHLWIN7 ) lHighLite := ( Ascan( ...

Please note that (::cAlias)->( RecNo() ) is exaactly the same as Eval( ::bBookMark ) or ::BookMark. Instead of saying uCurRow := ( ::cAlias )->( RecNo() ), we rather code as uCurRow := ::BookMark or uCurRow := Eval( ::bBookMark ), which is already done. ...

Please note that (::cAlias)->( RecNo() ) is exaactly the same as Eval( ::bBookMark ) or ::BookMark. Instead of saying uCurRow := ( ::cAlias )->( RecNo() ), we rather code as uCurRow := ::BookMark or uCurRow := Eval( ::bBookMark ), which is already done. ...

Hi I try "bBookMark" and is not stable, when I browse the list items I repeat, my customers complain that the application is confusing, I'm just excuses, I hope that at some point has a solution. oxBrw:bKeyNo = oxBrw:bBookMark ...

Eval( oBrw:bBookMark ) returns the RecNo()
Eval( oBrw:bBookMark, n ) executes( DBGOTO( n ), RECNO() )

But doesnt that mean that the browse must be in recno() order?

Yes.
Any problem?

If you are using the latest XBrowse, for SQLRDD, we are using RecNo() and DbGoTo() functions only both for bBookMark and bKeyNo().
We are not using OrdKeyNo().
We expect SQLRDD to be perfectly reliable with RecNo() and GoTo() functions even if used in quick succession many times.