PROGRESSIVE SEARCH ON CHILD RECORDS

[ken tjia]

I am very pleased with Dr. Wayne's article on
"Using Alpha Five Version 4's On Key event"
(see copy of the code below)

I have implemented this method of "search" successfully
within my application. In this case the browse simply search for records within the "Parent" record/

Let's suppose if this search is to be done on Browse1,
where Browse1 happend to be a child of a set.

Can someone suggest the neccessary changes for me to accomplishe this similar search function ?

Your assistance is greatly appreciated.

My form name is MASTER
Main database table name is HEADER
The child database/table name is HEADER_DATA
(linked to HEADER)

The code below will search everything in HEADER perfectly
but I would like it to search for records in HEADER_DATA
instead.

Ken Tjia

************ DR WAYNE'S ARTICLE *********************
dim shared tempstr as c
dim shared posn as n
dim shared choice as c

dim up as c
dim repeat as c
table.current().index_primary_put("name")

if this.active()="choice" then
select
case a_user.key.event="down"
if left(a_user.key.value,1)="{" then
' it's a control key or backspace or function key
select
case a_user.key.value="{BACKSPACE}"
if posn>0 then
posn=posn-1
tempstr=iif(posn=0,"",left(tempstr,posn))
a_user.key.handled=.t.
end if
case else
' pass through
a_user.key.handled=.f.
end select
else
posn=posn+1
tempstr=tempstr+a_user.key.value
a_user.key.handled=.t.
end if
case a_user.key.event="up"
up=a_user.key.value
a_user.key.handled=.t.
case a_user.key.event="repeat"
repeat=a_user.key.value
a_user.key.handled=.t.
end select

table.current().fetch_find(tempstr)
browse1.refresh()
choice=tempstr
choice.refresh()
end if

[Steve Buckler]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

Try building a new form with the HEADER_DATA table as the parent and use the same search method.

steve

[ken tjia]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

YES THAT WILL WORK FOR SURE.
BUT I NEED TO APPLY IT TO THE CHILD INSTEAD OF PARENT

[martinwcole]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

Ken, will the search always return a child record belonging to the current parent, or will it possibly return a different parent?

[ken tjia]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

Martin,

Thank you for your reply..
I suspect this line where the Index point to "parent"
record is the area that we need to look closer ?
While we are leaving the parent records alone....
And just wanted to see a "filtered" child records dynamically. I have to read it again in detail to see
how to point and apply the right indexes.

This method now simply produce an error as the contain of
BROWSE1=child's record(s)

versus Dr. Wayne's BROWSE1=ACTUAL PARENT RECORD(S)
and 100% related to the index_primary_put("name")
I think is simple, but I am just not good at it for the moment. The Progressive search on parent work on 3 of my forms successfully. But now moving away from a simple form to a multi level (set) within the form is my curiocity.

We may have to re-define something ??
That is what I am looking for

Thanks

Ken Tjia

table.current().index_primary_put("name")

[martinwcole]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

table.current() points to the parent
table.current(2-3-4-5, etc.) points to children
() or (1) is the parent; (2) is the first child; (3) is the second child; etc.

I would make a dialog form, with an embedded browse based on the specific table you want to query on and do the progressive search on that form. I have several forms like this that I use the progressive search on - it sounds like there are a lot of records in the child table.

[ken tjia]

RE: PROGRESSIVE SEARCH ON CHILD RECORDS

Ok..I will give it a good try this afternoon.
Been thinking about the "Dialog" way.
Just worry about pening too many forms and with
up to 10 real time users is what I am afraid off.

By the way, the entire application using "TOUCH SCREEN"
and rarely using keyboard.

Will comment further

ken tjia in Vancouver,BC (Westcoast Canada)