FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour problem to check xbrowse
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
problem to check xbrowse
Posted: Sat Jan 02, 2016 09:34 PM

to select a record on xbrowse I use a field call "select" of 1 character
when I wish select a record I change the field select with a replace

sample :
Replace MV->SELECT with "x"

OR to deselect I use another replace

sample :
Replace MV->SELECT with " "

it run ok but I see the operation is too slow

how I can make to make it fast ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 284
Joined: Mon Oct 24, 2005 08:04 PM
Re: problem to check xbrowse
Posted: Tue Jan 05, 2016 01:42 AM

You could create an array of record numbers or primary keys and then setup the "Checked" column something like this:

oCol:AddResource( FWBmpOn() )
oCol:AddResource( FWBmpOff() )
oCol:bBmpData := { || iif(ascan(aTagged,Invoice->invno) > 0, 1, 2) }

Randal

Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: problem to check xbrowse
Posted: Tue Jan 05, 2016 10:26 AM

Randal I use dbf no array

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: problem to check xbrowse
Posted: Tue Jan 05, 2016 03:11 PM
Silvio,

the way I'm selecting a record
i need a three-way status and using a numeric field instead of a characterfield with "" and "X"
values are
0 = nothing
1 = Yes
2 = No
a right mouseclick scrolls the status vom 0 to 2 like 0, 1, 2, 0, 1,2

I never use REPLACE because it is known, to be slow

I added a numeric field < CHECK N 1.0 > to customer.dbf for a test



a full sample

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

best regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Continue the discussion