PUBLIC oForm
oForm = CREATEOBJECT('comboingrid')
oForm.Show
DEFINE CLASS comboingrid AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "form1"

	ADD OBJECT grid1 AS grid WITH ;
		Height =  217 , ;
		Left =  12 , ;
		Top =  12 , ;
		Width =  349 , ;
		Name = "Grid1"

	PROCEDURE Load
		CREATE CURSOR test (id i, id_Child i)

		INSERT INTO test (id,id_Child) VALUES ( 1 , 3 )
		INSERT INTO test (id,id_Child) VALUES ( 2 , 1 )
		GO TOP IN test

		CREATE CURSOR test_Child (id i, comment c ( 10 ))

		INSERT INTO test_Child (id, comment) VALUES ( 1 , 'One')
		INSERT INTO test_Child (id, comment) VALUES ( 3 , 'Three')
	ENDPROC

	PROCEDURE Init
		WITH this.grid1
			.RecordSource = ''
			.columncount =  3 
			WITH .Column2
				GO BOTTOM in test_child
				SKIP  1  IN test_child
				.removeobject('Text1')
				.Addobject('G_Cmb1','Combobox')
				WITH .G_Cmb1
					.AddProperty('Arr(15,2)')
					 = .t.
					.rowsourcetype =  5 
					.rowsource = "This.Arr"
					SELECT PADR(Comment, 10 ), id FROM test_child INTO ARRAY .arr
					STORE  2  TO .ColumnCount, .BoundColumn, .style, .SpecialEffect
					STORE .T. TO .BoundTo, .Visible
					.BorderStyle =  0 
					.ColumnLines = .f.
					.ColumnWidths = "100,10"
				ENDWITH
				.Bound=.T.
				.controlsource = "Test.id_Child"
				.Sparse = .f.
			ENDWITH 
			.Column1.controlsource = "Test.id"
			.Column3.controlsource = "Transform(Test.id_Child)"
			.recordsource = "Test"
		ENDWITH 
	ENDPROC
ENDDEFINE