FiveTech Software tech support forums

... "DBFCDX" ) * if ( ::cAlias )->( LASTREC() ) > 10000 .and. lFileIsRemote( ( ::cAlias )->( DBINFO( DBI_FULLPATH ) ) ) * DEFAULT ::bKeyNo := { |n| ( ::cAlias )->( If( n == nil, OrdKeyRelPos() * ::nLen, ; * If( Empty( OrdSetFocus() ), OrdKeyGoTo( n ), OrdKeyRelPos( n / ::nLen ...

oBrw:bKeyNo := { |n| 0 }  Is the code in FWH1912. We tried to replace this oBrw:bKeyNo in FWH2006 to support Vertical Scrollbars. This is the only change. This is the reason for delay and we will try our best to improve ...

... to the bottom, when it reaches the end of file, if I click on any row, it errors. The call is in xbrowse to: ASSIGN Keyno( n ) INLINE ( Eval( ::bKeyNo, n, Self ), Eval( ::bKeyNo, nil, Self ) ) Which passes it to tDatabase: METHOD KeyGoTo( nkeyNo ) INLINE ( ( ::nArea )->( OrdKeyGoTo( nKeyNo ...

... Me lo dijeron aqui en el foro. oLstChq:bKeyCount := {|| h0["DetaCheq23"]:cAlias->( AdsKeyCount( , , ADS_RESPECTFILTERS ) ) } oLstChq:bKeyNo := {| n | IIf( HB_IsNil( n ), h0["DetaCheq23"]:cAlias->( AdsKeyNo( , , ADS_RESPECTFILTERS ) ), h0["DetaCheq23"]:cAlias->( ...

fix .... :D IF ( ::calias )->(ordnumber()) == 0 DEFAULT ::bKeyNo := {| n | iif( n == nil,; ( ::cAlias )->( RecNo() ),; ( ::cAlias )->( DbGoto( n ); ) ) },; ::bKeyCount := {|| ( ::cAlias )->( If( eof() .and. bof(), 0, ReCcount() ) ) } else DEFAULT ...

... oWIN:oClient:=oBRW oWIN:SetControl(oBRW) ACTIVATE WINDOW oWIN ON INIT WndAdjClient(oWIN:hWnd) ; VALID ( oBrw:bKeyCount:={||0} , oBrw:bKeyNo := {||0} , CLOSE_DB(oXDBF) , .T. ) Return .T. ************************ // Close DataBase Function CLOSE_DB(oDBF) IF oDBF<>NIL (oDBF)->(DBCloseArea()) ...

... browse and be careful about btnbar and menu actions. The should check whether the dbf is open before taking action, oBrw:bKeyCount := {|| 0 } oBrw:bKeyNo := {|| 0 } Make it much safer. We get used to these over time.

Do you mean that you are using a TWBrowse and want to have a column where Eval( oBrw:bKeyNo ) is shown ?

Dear All,

I would like to show line number in TWbrowse as Eval( oBrw:bKeyNo ) in XBROWSE.

How can I do it?

Regards,
Dutch

... 3169 ) Called from: => SYSREFRESH( 0 ) Here is a sample of my Mdi\Child valid close .. note the code blocks oLbxA:bKeyCount := { || 0 } oLbxA:bKeyNo := { || 0 } //---------------------------------------------Static FUNCTION ExitPgm( lOk3,oWndChildA,oWndCHild,oLbxA,lOk,;                ...

... > Eval( ::bKeyCount ) }, ; ::bBookMark := { | n | If( n == nil, ::nArrayAt, ; ( ::nArrayAt := n, Eval( ::bOnSkip, Self ), n ) ) }, ; ::bKeyNo := ::bBookMark, ; ::bKeyCount := { || Len( ::aArrayData ) }

hi SGS: The problem was ::bKeyno() got 0 For SQLRDD. You need update FWH after ver.1208 . look the source code xBrowse in Method SETRDD Unmark this lines elseif ( ::cAlias )->( RddName() ) == "SQLRDD" DEFAULT ::bKeyNo := ::bBookMark, ...

... Ya que las demas definciones las tengo al inicio. mBrw:bKeyCount := {|| ( DBLISTA )->( AdsKeyCount( , , ADS_RESPECTFILTERS ) ) } mBrw:bKeyNo := {| n | IIf( HB_IsNil( n ), ( DBLISTA )->( AdsKeyNo( , , ADS_RESPECTFILTERS ) ), ( DBLISTA )->( OrdKeyGoto( n ) ) ) } Gracias Carlos. ...

Peter;

The selected xbrowse record ::bKeyNo value is saved on ::aSelected property of xbrowse.

So, here is an idea:

x := 0
bAddBlock := { |nRecNo| oDbf:Goto( nRecNo ), x += oDbf:SomeValue }
AEVAL( oBrw:aSelected, { |e| EVAL( bAddBlock, e } )


Reinaldo.

Rick,

Please try with:

oBrw:bKeyNo := { || nil } // or { || 0 }

thanks