aFields(1,1)='c_nome' aFields(2,1)='c_descri' etc..
.... CExpression=CExpression+aCampos(nCnt,1)+',' .... select cExpression from table into cursor cursor1