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 endscanTnx