LOCAL nTemp, i, sFields

CREATE TABLE tTable1 (nCol1 N, nCol2 N, nCol3 N)
SELECT tTable1
INSERT INTO tTable1 VALUES ( 1 ,  0 ,  1 )

nTabFil = AFIELDS(aTabFil, "tTable1")

m.sFields = ''

FOR m.i =  1  TO nTabFil STEP  1 
	CALCULATE SUM(&aTabFil(m.i,  1 )) TO m.nTemp
	IF m.nTemp >  0  THEN
		m.sFields = m.sFields + IIF(EMPTY(m.sFields), '', ', ') + m.aTabFil(m.i,  1 ) + ' N'
	ENDIF
ENDFOR

CREATE TABLE tTable2 (&sFields)

SELECT tTable2
APPEND FROM tTable1
BROWSE