PUBLIC oform1
oform1=NEWOBJECT( "form1" )
oform1.Show
READ EVENTS

DEFINE CLASS form1 AS form
	DoCreate = .T.
	AutoCenter = .T.
	Caption =  "Form1" 
	Name =  "Form1" 
	ADD OBJECT combo1 AS combobox WITH ;
		RowSourceType =  6 , ;
		RowSource =  "cursor1.test1" , ;
		Height =  25 , ;
		Left =  84 , ;
		Top =  36 , ;
		Width =  217 , ;
		BoundTo = .T., ;
		Name =  "Combo1" 
	ADD OBJECT list1 AS listbox WITH ;
		RowSourceType =  3 , ;
		RowSource = ;
 "select test2 from cursor2 where test1=cursor1.test1 into cursor cursor3" , ;
		Height =  121 , ;
		Left =  84 , ;
		Top =  84 , ;
		Width =  217 , ;
		Name =  "List1" 
	PROCEDURE Load
		LOCAL lcItem as String 
		LOCAL i as Integer 
		LOCAL j as Integer 
		CREATE CURSOR cursor1 (test1 c( 10 ))
		CREATE CURSOR cursor2 (test1 c( 10 ),test2 c( 10 ))
		FOR i= 1  TO  10 
			lcItem=SYS( 2015 )
			INSERT INTO cursor1 VALUES (lcItem)
			FOR j= 1  TO  10 
				INSERT INTO cursor2 VALUES (lcItem, SYS( 2015 ))
			ENDFOR 
		ENDFOR 
		GO TOP IN cursor1
	ENDPROC
	PROCEDURE Unload
		IF USED('cursor1')
			USE IN cursor1
		ENDIF 
		IF USED('cursor2')
			USE IN cursor2
		ENDIF 
		IF USED('cursor3')
			USE IN cursor3
		ENDIF 
		CLEAR EVENTS 
	ENDPROC
	PROCEDURE Init
		this.combo1.ListIndex= 1 
	ENDPROC
	PROCEDURE combo1.InteractiveChange
		thisform.list1.Requery()
	ENDPROC
ENDDEFINE