>>>USE SERV order tag no >>>IF EOF() >>> M.F = 1 >>> M.LE = THISFORM.TEXT1.VALUE >>>ELSE >>> GO BOTTOM >>> M.F = SERV.NO >>> M.LE = THISFORM.TEXT1.VALUE + m.F >>>ENDIF >>>FOR I=M.F TO M.LE >>> INSERT INTO Serv (No) VALUES (i) >>>NEXT >>>>>>
>>>>>>>>USE SERV >>>>>>>>SELECT MAX(No) FROM SERV INTO ARRAY laMaxNo >>>>>>>>IF ISNULL(laMaxNo[1]) >>>>>>>> M.F = 1 >>>>>>>> M.LE = THISFORM.TEXT1.VALUE >>>>>>>>ELSE >>>>>>>> GO BOTTOM >>>>>>>> M.F = laMaxNo[1] + 1 >>>>>>>> M.LE = THISFORM.TEXT1.VALUE + laMaxNo[1] >>>>>>>>ENDIF >>>>>>>>FOR I=M.F TO M.LE >>>>>>>> INSERT INTO Serv (No) VALUES (i) >>>>>>>>NEXT >>>>>>>>>>>>>>>>
>>>>>>>>>1 >>>>>>>>>2 >>>>>>>>>3 >>>>>>>>>if i run the form again and insert new number at mytextbox as 4 >>>>>>>>>i see >>>>>>>>>1 >>>>>>>>>2 >>>>>>>>>3 && >>>>>>>>>3 && repate this number only if table count is 0 >>>>>>>>>4 >>>>>>>>>5 >>>>>>>>>6 >>>>>>>>>7 >>>>>>>>>>>>>>>>>>thanks
>>>>>>>>>>>USE SERV >>>>>>>>>>>COUNT TO M.L >>>>>>>>>>>IF M.L=0 >>>>>>>>>>> M.F=M.L+1 >>>>>>>>>>> M.LE=M.F+THISFORM.TEXT1.VALUE-1 >>>>>>>>>>>ELSE >>>>>>>>>>> GO BOTTOM >>>>>>>>>>> M.F=M.L >>>>>>>>>>> M.LE=THISFORM.TEXT1.VALUE+M.L >>>>>>>>>>>ENDIF >>>>>>>>>>>FOR I=M.F TO M.LE >>>>>>>>>>> APPEND BLANK >>>>>>>>>>> REPLACE NO WITH I >>>>>>>>>>> >>>>>>>>>>>NEXT >>>>>>>>>>>>>>>>>>>>>>thanks