Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Listbox not always complete
Message
 
To
13/02/2002 08:11:57
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00618447
Message ID:
00619391
Views:
16
Hello Renoir

Thanks for the reply, I found the problem referencing the wrong listbox when resizing (numberofelemts).

if you still want a copy (for any reason) just let me know


thanks again


>>Hello All
>>
>>I have 2 listboxes, like the mover sample
>>
>>the listbox in question is holding 710 vars a one-dimensional array
>>
>>when the form is first ran not all the vars are shown in the listbox (about 700 vars), after "moving" double clicking one item from the incomplete list box to the listbox (not in question) all the vars are shown in the listbox (709 vars)
>>
>>here is the mover code
>>thisform.list2.dblclick
>>
>>IF ALEN(ga_source) < 10 (the other listbox can only go up to 10 items)
>>	SET TALK OFF
>>	=ADEL(ga_list,(THIS.LISTINDEX))
>>	DIMENSION ga_list(ALEN(ga_list)-1)
>>	THIS.NUMBEROFELEMENTS = ALEN(ga_list)
>>	IF ALEN(ga_source) = 1 AND ga_source[1] = 'None'
>>		ga_source[alen(ga_source)] = pc_list
>>	ELSE
>>		DIMENSION ga_source(ALEN(ga_source)+1)
>>		ga_source[alen(ga_source)] = pc_list
>>		THISFORM.list1.NUMBEROFELEMENTS = ALEN(ga_source)
>>	ENDIF
>>	=ASORT(ga_source)
>>ELSE
>>	MsgBoxTmr("Maximum number of related forms reached!",'(WEIA) Limit Error',"OK", "!", 1, 10)
>>	RETURN
>>ENDIF
>>THISFORM.REFRESH
>>
>>
>>
>>any ideas?? more info needed??
>>
>>Thanks
>
>Stephen,
>
>Is it possible to send these on a form so I could take a look at them?
>
>renoir@bellsouth.net
>
>Renoir
Stephen McLaughlin
"Sexy Steve Valenteno", "Blastmaster"
stephenmclaughlin@gmail.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform