Problem with linked listboxes

[KDavie]

I have a form which contains 2 listboxes. List1 displays all the states. List2 is supposed to display all the counties for the selected state in list1. In the init event of the form I have this code:

lcStateName = ALLTRIM(thisform.list1.Value)
SELECT stateid
LOCATE FOR state = lcStateName
lnStateID = StateID
lcRowSource = 'SELECT county From countyids '
lcRowSource = lcRowSource + 'WHERE (stateID = lnStateID) INTO CURSOR crList'
WITH Thisform.list2
.RowSource = lcRowSource
.ListIndex = 1
ENDWITH


In the Valid event of list1 I have this code:

lcStateName = ALLTRIM(this.Value)
SELECT stateid
LOCATE FOR state = lcStateName
lnStateID = StateID
Thisform.list2.Requery()


The code almost works, except when the user clicks on a state in list1, list2 is populated with the correct counties then blinks and is populated by ALL counties in the table.


Any help would be appreciated.

-Kevin

 

[Mike Lewis]

Kevin,

At first glance, I'd say that this is because lnStateID is local to the Init and Valid events where it is referenced. The second listbox needs it be in scope the whole time. I suggest you make lnStateID a property of the form.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[KDavie]

Making stateID a property on the form doesn't work either. Here is exactly how I want it to work:

1. When the form opens list2 should display 'Select State'

2. Everytime the user selects a new state in list1, list2 should display the correct counties

Maybe I am going at it the wrong way all together, do you have any other suggestions?

Thanks for your help.

-Kevin

 

[KDavie]

Nevermind, I got it to work. The stateID property was the key, I just forgot to update the code in one of the events. Thanks again for your help.

-Kevin