Filter Imbedded Browse with ComboBox

[marvinbase]

I have a form based on a set that has an embedded browse. I'm trying to create a combo-box with 4 static options that will filter the records in the browse. I've tried to create custom queries in action scripting, and then went to X-basic. So far, no matter what I try, nothing happens- no errors, but nothing changes. Here's my code so far:

Select case dropdown1.value
	Case 1
	parentform.queryrun("((Current_balance = 0  )  .and. (Trans_amt <> 0  ))")

	case 2
	parentform.queryrun("((Current_balance <> 0  )  .and. (Trans_amt > 0  ) .and. (Trans_code < 50  ))")

	case 3
	parentform.queryrun("((Trans_code > 50  )  .and. (Trans_code = 60  ) .and. (Trans_amt > 0) .and. isblank(\T_Sent_Customer_Data->Datesent\))")

	case 4
	'Show All Records.
	parentform.show_all()

end select
	
xbasic_wait_for_idle()

parentform.Commit()
parentform.Resynch()
parentform.Refresh_Layout()

And here's the field properties for the dropdown box

New Starts|1
Paid In Full|2
Additional Payments|3
Show All A2I Data|4

Just for background, I've a lot of experience with access and vbscript, but I'm an alpha newb, so I apologize if I'm overlooking the obvious. Any help is appreciated.

[Tbaker]

Re: Filter Imbedded Browse with ComboBox

Jeff

This works for me

Select case 

	Case dropdown1=1
	parentform.queryrun("((Current_balance = 0  )  .and. (Trans_amt <> 0  ))")

	case dropdown1= 2
	parentform.queryrun("((Current_balance <> 0  )  .and. (Trans_amt > 0  ) .and. (Trans_code < 50  ))")

	case dropdown1=3
	parentform.queryrun("((Trans_code > 50  )  .and. (Trans_code = 60  ) .and. (Trans_amt > 0) .and. isblank(\T_Sent_Customer_Data->Datesent\))")

	case dropdown1=4
	'Show All Records.
	parentform.show_all()

end select

FWIW

Tom

[marvinbase]

Re: Filter Embedded Browse with ComboBox

No go for me- I get an undeclared variable error with the code you suggested. However, I've found out a couple of things:

First, I can't have this in the OnChange event of the dropdown list, as it doesn't seem that this event is called when an item already in the list is selected. So I created a "go" button and added the code there.

Second, putting quotes around the select case values seems to help, as now it is doing something- it's running the query for the first select statement. But, it's ONLY doing the first query, no matter what is in the dropdown list. This is driving me nuts.

Here's my revised code:

Select case dropdown1.value

	Case "1"
	parentform.queryrun("((Current_Balance > 50  )  .and. (Trans_code > 50  ) .and. (Trans_amt > 0)))")
	msgbox("New Start")

	case "2"
	parentform.queryrun("((Current_balance = 0  )  .and. (Trans_amt <> 0  ))")
	msgbox("Paid In Full")

	case "3"
	parentform.queryrun("((Current_balance <> 0  )  .and. (Trans_amt > 0  ) .and. (Trans_code < 50  ))")
	msgbox("Partial Payment")

	case "4"
	'Show All Records.
	parentform.show_all()
	msgbox("Show All Records")

	Case else
	msgbox("nothing selected")
end select

xbasic_wait_for_idle()

parentform.Resynch()
parentform:browse1.Refresh_Browse()

[Tbaker]

Re: Filter Imbedded Browse with ComboBox

Jeff

First, on the form I used to test the select statements with both a list box and a combo box, I created a global variable vc_dropdown and vc_newdrop.
both were created as numeric.

I placed that those variables as fields on my form vc_dropdown with a list box and vc_newdrop as the combo box.

For the choices both the list box and the combo box were identical

Alpha|1
Beta|2
Delta|3
Everything|4

I then used the on change for each of them with the following code

Select case  'this was for the list box - code was the same with a different 
                  'variable (vc_newdrop) for the combo box
        case vc_dropdown = 1
            msgbox("","alpha")
        case vc_dropdown =2
            msgbox("","beta")
        case vc_dropdown=3
            msgbox("","delta")
        case vc_dropdown=4
            msgbox("","Everything")
end select

Everything work as it should.

Another thing, and it may be me, I have never seen the select case construct that you have "Select case download1.value" then case statements. Again that may be just me - but even the help files doesn't have anything like that (I come from VB and I can't remember ever using that construct.

Second: If I made the code similar to yours with the above construct, I too would only get the msg of "Alpha"

I did dim my variables in the form as global numeric. Evidently you are not using a variable.

If you are then I don't understand the not dimmed error.

I will post a copy of my test table for you to review in a few minutes. I have to set it up for just the one table - my test app has a a myriad of forms etc.

So bear with me for.

Tom

[marvinbase]

Re: Filter Imbedded Browse with ComboBox

That worked-

You're right, I did not declare a variable. Moreover, my combobox was unbound- there was no field for the selected value to attach to.

I guess I didn't understand the need to declare a variable if I'm defining the value of the selected item in the combobox, and then pulling the selected value from the combobox in the code on the same form. Of course, that could be something microsoft did in the background, and I'm going to have to learn the differences in vbscript and xbasic. I can assure you that I've used that select case construct in the past with vbscript and vb.net.

Thanks for your time and patience! I can now go continue beating my head against the wall, but at least it will be for a different project! :)

[Tbaker]

Re: Filter Imbedded Browse with ComboBox

Jeff

Just beat your head once and then turn to the forum. You can't beat it for the price (free).

Oh, I'm an "if then else" man - used case statement in VB very rarely, in fact, when I did I used to refer to help (books in those days).

Best of luck to you.

Tom