>select mytable >for i=1 to 10 >if seek (i,'mytable','id')=.f. >messagebox('ID '+allt(str(i))+' Not Found!',0+16) >return >endif >if mytable.status='C' >messagebox('The operation will ignore from tube ID '+allt(str(i))) >loop >endif >insert into mycursor value(i) >>The problem is that the code ignore from my 'Loop' (the id inserted even mytable.status='C')
LOCAL llExists SELECT MyTable FOR i = 1 TO 10 llExists = SEEK(i, 'MyTable', 'ID') DO CASE CASE llExists = .F. MessageBox('ID '+ ALLTRIM(STR(i)) + ' Not Found!',0+16) Return CASE MyTable.Status = 'C' MessageBox('The operation will ignore from tube ID ' + ALLTRIM(STR(i))) OTHERWISE INSERT INTO MyCursor VALUE(i) ENDCASE ENDFORRegards,