CLEAR CREATE CURSOR my_tbl1 (my_value i) INSERT INTO my_tbl1 VALUES(1) INSERT INTO my_tbl1 VALUES(2) INSERT INTO my_tbl1 VALUES(2) INSERT INTO my_tbl1 VALUES(1) INSERT INTO my_tbl1 VALUES(3) CREATE CURSOR my_tbl2 (my_value i, my_caption C(20)) INSERT INTO my_tbl2 VALUES(1, "Caption 1") INSERT INTO my_tbl2 VALUES(2, "Caption 2") INSERT INTO my_tbl2 VALUES(3, "Caption 3") lcColStr = "" SELECT my_tbl2 SCAN lcColAlias = CHRTRAN(ALLTRIM(my_caption), SPACE(1), "_") lcColExpr = [IIF(t1.my_value = ] + TRANSFORM(my_value) + [,.T., .F.)] lcColStr = lcColStr + [, ] + lcColExpr + [ AS ] + lcColAlias ENDSCAN TEXT TO lcSql TEXTMERGE NOSHOW PRETEXT 15 SELECT t1.my_value <<lcColStr>> FROM my_tbl1 t1 JOIN my_tbl2 t2 ON t1.my_value = t2.my_value ENDTEXT &lcSql>I have two tables (simplified):
>MY_VALUE >1 >2 >2 >1 >3 >>
>MY_VALUE MY_CAPT >1 "Caption 1" >2 "Caption 2" >3 "Caption 3" >>
>CAPTION_1 CAPTION_2 CAPTION_3 >.T. .F. .F. >.F. .T. .F. >.T. .T. .F. >.T. .F. .F. >.F. .F. .T. >>