>

>
>CREATE CURSOR TEST(TEST C(2))
>INSERT INTO TEST(Test) VALUES("T1")
>INSERT INTO TEST(Test) VALUES("T2")
>
>CREATE CURSOR TEST2(TEST C(2))
>INSERT INTO TEST2(Test) VALUES("T1")
>
>PUBLIC oFORM
>oForm = CREATEOBJECT("FORM")
>oForm.Show()
>SELECT TEST
>oForm.ADDOBJECT("combo2","myCombo2")
>SELECT TEST2
>oForm.ADDOBJECT("combo3","myCombo2")
>
>oForm.combo2.visible = .T.
>oForm.combo3.TOP= 80
>oForm.combo3.visible = .T.
>
>DEFINE CLASS myCombo2 AS Combobox
>	rowsourcetype = 3
>	rowsource = "SELECT TEST FROM TEST TO SCREEN NOCONSOLE"
>	TOP = 50
>ENDDEFINE
>
>

Best if VFPT don't fix this.
Perhaps it is a good workaroud in order to exceed the rowsourcetype = 2 bugs

CREATE CURSOR TEST(TEST C(2))
INSERT INTO TEST(Test) VALUES("T1")
INSERT INTO TEST(Test) VALUES("T2")

CREATE CURSOR TEST2(TEST C(2))
INSERT INTO TEST2(Test) VALUES("T1")

PUBLIC oFORM
oForm = CREATEOBJECT("FORM")
oForm.Show()
SELECT TEST
oForm.ADDOBJECT("combo2","myCombo2")
oForm.combo2.trueSource = ALIAS()
SELECT TEST2
oForm.ADDOBJECT("combo3","myCombo2")

oForm.combo2.visible = .T.
oForm.combo3.TOP= 80
oForm.combo3.visible = .T.

DEFINE CLASS myCombo2 AS Combobox
	trueSource = ''
	rowsourcetype = 3
	rowsource = "SELECT .F. FROM test2 where .F. into array dummy"
	TOP = 50
	
	PROCEDURE init
		this.trueSource = ALIAS()
	
	PROCEDURE GOTFOCUS
		THIS.Requery 
	ENDPROC
	
	PROCEDURE requery
		SELECT (this.trueSource)
ENDDEFINE