Changing filter after opening form

[Greg Fong]

Anyone know how to change a filter expression after opening a form?
In my form I want to have a radio button cluster that allows the user to view various aspects of the table by clicking on the button of interest.

BTW, Is it possible to do an index_put just before running a form since indexes are so much faster? Or perhaps doing the index_puts while inside the opened form?

[Tom Cone Jr]

RE: Changing filter after opening form

Greg, study the Contact_Manager template that ships with Alpha Five. You'll find it in the Templates subfolder of the Books folder in your program directory.

[Greg Fong]

RE: Changing filter after opening form

Thanks Tom! I admit never having looked at this code before. This is a way cool solution. I think I'll try this on the next series of forms but in the meantime I'll continue trying to set an index inside my form load.

[Tom Cone Jr]

RE: Changing filter after opening form

Ok. There are several ways to set the initial 'view' when a form opens.

If you want a query to be in place, the examples in the discussion of form.load() illustrate how to do it.

If you want the view to encompass all records, but for a particular indextag to be selected, you might put something like this in the form's OnInit event:

tbl = table.current() 'get pointer to primary table for form
tbl.index_primary_put("indextagname")
tbl.fetch_first()

-- tom

[CALocklin]

RE: Changing filter after opening form

I think you would also have to add a Parentform.resynch() to the end of Tom's script.

However, I think it would be easiest to set up a query using one of the methods described in the documentation under the section titled Working with Xbasic Methods for Forms and Browses. The query order could be identical to an existing index in which case Lightning Query would be used and speed would not be an issue. I use these queries regularly and find them very easy to work with.

[Mick Magnuson]

RE: Changing filter after opening form

Hi Greg
Pretty much copied this from the book. On our open order view screen I have a button to find a particular customer. Any part of the customer name can be entered by using the smatch function. This script prompts for input, but you can hard code variables in just as easy. Maybe this may give you an idea or two.

Mick

dim shared tbl as p
dim shared part as c

dim query.description as c
dim query.options as c
dim query.order as c

tbl=table.current()
tbl.index_primary_put("partno")
part=ui_get_text("Find A Customer","Who is the customer?")
partd=part
if part="" then
tbl.index_primary_put("part1")
tbl.fetch_first()
parent.resynch()
end

else
query.description="Customer Name"
query.order="name+part1+dtoc(date)"
query.options=""
query.filter="smatch((name),'*'+part+'*')"
indx=tbl.query_create()
rec_count=indx.records_get()
Recs=rec_count
if rec_count=0 then
ui_msg_box("","Customer "+upper(ltrim(part))+" not found. Displaying all records.",ui_attention_symbol)
tbl.index_primary_put("part1")
parent.resynch()
end

else

tbl.index_primary_put("Customer Name")
parent.resynch()
end if
end if
end