create cursor mycursor (id i,col1 c(3),col2 c(3),col3 c(3)) >insert into mycursor (id,col1,col2,col3) values(1,'AA','BB','CC') >insert into mycursor (id,col1,col2,col3) values(2,'EE','FF','GG') > >select mycursor >scan > for I=1 to 3 > ccolval=evaluate(mycursor+'.COL+str(i)') > messagebox(ccolval) > endfor >endscan>
select mycursor scan for I=1 to 3 ccolval=evaluate("mycursor.COL" + ALLTRIM(str(i))) messagebox(ccolval) endfor endscan