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>
for I=1 to 3 ccolval=evaluate('mycursor.COL'+transform(i)) messagebox(ccolval) endforccolval=evaluate('mycursor.COL'+str(i)) && would be evalute('myCursor.Col1'), etc.