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) VALUES (1)
		INSERT INTO test (id) VALUES (2)

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

		INSERT INTO test_Child (id, comment) VALUES (1, '1234567890')
		INSERT INTO test_Child (id, comment) VALUES (3, '201918171615141312110987654321')
		GO TOP IN test
	ENDPROC


	PROCEDURE Init
		WITH this.grid1
			.columncount = 2
			.recordsource = "Test"
			.Column1.controlsource = "Test.id"
			.Column2.controlsource = "Test.id_Child"
			.Column2.Sparse = .f.
			.Column2.Bound = .t.

			WITH .Column2
				.removeobject('Text1')
				.Addobject('ComboBox1','ComboBox')
				.ComboBox1.AddProperty('Arr(2,2)')
				.ComboBox1.Visible = .t.
				.ComboBox1.rowsourcetype = 5
				.ComboBox1.rowsource = ".ComboBox1.Arr"
				SELECT CAST(Comment as C(30)) as comment, id FROM test_child INTO ARRAY .ComboBox1.arr
				.ComboBox1.BorderStyle = 0
				.ComboBox1.ColumnCount = 2
				.ComboBox1.BoundColumn = 2
				.ComboBox1.ColumnLines = .f.
				.ComboBox1.ColumnWidths = "300,10"
				.ComboBox1.BoundTo = .t.
				.ComboBox1.style = 2
				.ComboBox1.Format = Replicate('X',30)
			ENDWITH 
		
		INSERT INTO test (id, id_Child) VALUES (3, 3)

		ENDWITH 
	ENDPROC


ENDDEFINE