>SET STATUS OFF >SET TALK OFF >SET ECHO OFF >SET SAFETY off >ma=JUSTSTEM(thisform.text1.value) select 0 >USE (ma) alias WorkTable >COUNT TO thisform.text3.value >*total = "8000" >total = Val(THISFORM.TEXT2.VALUE) >RAND(-1) >INDEX ON RAND() TO SYS(2023)+'\RANDOM' >COPY TO NEWADSL NEXT total >SET INDEX TO >ERASE SYS(2023)+'\RANDOM' use newAdsl in 0 alias RecToDelete >**************************************** >delete from WorkTable inner join RecToDelete on WorkTable.telNo = RecToDelete.TelNo &&syntax error>
select RecToDelete scan if seek(TelNo,'WorkTable','TelNo') && If we have index tag on TelNo delete in WorkTable endif endscan