testxbrw filter

[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

[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

[Ehab Samir Aziz]

Is that code will result to access one record as focused by dbseek ?

[Ehab Samir Aziz]

Even that code does not focus on seeking x value ?!!!!

[grumpy]

Use SET SCOPE its faster and you can use ranges.