Hi Mark,
Are you sure? I was just replying to your other post when you posted this.
Shouldn't
dimension This.aList[1, lnLen]
This.aList[1, lnLen] = eval(This.ControlSource)
-be-
dimension This.aList
[ lnLen, 1 ]This.aList
[lnLen, 1] = eval(This.ControlSource)
You redimed the array and made it wider instead of longer < s >
Also, You may want to move the SQL select to the requery method and call requery first in the init. Requery is meant to refresh the internal list that the combo uses to for the display. It's either not doing anything now (or worse doing something you don't want that will show up later as a bug).
hth
>Un-freeking-believable. This makes all the difference:
>
>PROCEDURE Init
>
>DoDefault()
>select StaffName from travel!supers order by staffname into array This.aList
>
>The problem is the Select creates an array like:
>
>.aList[1,1] = 'value1'
>.aList[1,2] = 'value2'
>etc...
>
>To make it work, you have to redimension the array to single element:
>
>PROCEDURE Init
>
>DoDefault()
>select StaffName from travel!supers order by staffname into array This.aList
>dimension This.aList(alen(This.aList, 1))
>
>Which makes the array look like:
>
>.aList[1] = 'value1'
>.aList[2] = 'value2'
>etc...
>
>Then everything works. How maddening.
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!