Page 1 of 1
testxbrw filter
Posted: Thu Mar 16, 2006 8:04 am
by Ehab Samir Aziz
I am trying to update the testxbrw.prg to fullfill my needs as below . It does not work ???
select 1
USE METE
index on dtoc(me_date)
go top
set filter to 1->me_serial="9855564"
// USE CUSTOMER NEW
Example of filter
Posted: Fri Mar 17, 2006 2:33 pm
by jcaro
Ehab:
You can used this sample code:
FUNCTION Incremental( oWnd )
local oChild, oBrw
DEFINE WINDOW oChild TITLE "Incremental seek " MDICHILD OF oWnd
oBrw := TXBrowse():New( oChild )
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:bSeek := { |c| DbSeek( Upper( c ) ) }
oBrw:SetRDD()
oBrw:CreateFromCode()
oChild:oClient := oBrw
ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()
RETURN NIL
Posted: Tue Mar 28, 2006 5:32 pm
by Ehab Samir Aziz
Is that code will result to access one record as focused by dbseek ?
Posted: Tue Mar 28, 2006 5:41 pm
by Ehab Samir Aziz
Even that code does not focus on seeking x value ?!!!!
Posted: Wed Mar 29, 2006 4:30 am
by grumpy
Use SET SCOPE its faster and you can use ranges.