Hi Peter,
Are you saying that FOR loop goes from 1 to 3 when lz=4 and tToTime=12:15pm? It's only possible if variable ix is set to the value >=4 inside the loop.
>OK this is driving me crazy. I have a database of dates and times in 15 minute increments that keep information about scheduled events. Entering events into the database is fine however when I try to delete and event that ends at 12:15 pm, the 12:15 record does not get operated on. All other times work fine, even when 12:15 is included in the range. The following is the code. The form keeps a tToTime property, datetime of the end time and a tFromTime as datatime of starttime. lz calculates the difference between the two times in the number of 15minute increments. So a tFromtime of 11:30am and tToTime of 12:15pm is 4 15minute increments. A For..endfor loop goes from 1 to the lz value and operates on the records. When debugging everything goes fine, except when the endtime is 12:15. Then the For loops jumps out early by one. This just doesn’t make sense. Any Help would be appreciated.
>
>Peter V.
>LOCAL lnAnswer, lz, lx, lnIntNum, ldCheckTime, lcIntVar, lcIntVar2
>lz=((THISFORM.tTotime-THISFORM.tFromtime)/900)+1
>lnIntNum=THISFORM.nIntNum
>lcIntVar="int"+ALLTRIM(STR(lnIntNum))
>lcIntVar2="int"+ALLTRIM(STR(lnIntNum))+"a"
>
>lnAnswer=MESSAGEBOX("Are you sure you want to Delete this Event?",36,"Delete Event")
>IF lnAnswer=6
> SELECT sched
> IF FLOCK()
> SELECT dbevents
> IF FLOCK()
> ******REMOVE EVENT
> SELECT sched
> FOR lx=1 TO lz STEP 1
> ldCheckTime=THISFORM.tfromtime+((lx-1)*900)
> IF SEEK(ldCheckTime)
> REPLACE &lcIntVar WITH ""
> REPLACE &lcIntVar2 WITH 0
> ENDIF
> ENDFOR
> *******DELETE a dbEvent
> SELECT v_dbEvents
> DELETE
> =MESSAGEBOX("Event Deleted",64,"Event Deleted")
> THISFORM.Release
> UNLOCK
> SELECT sched
> UNLOCK
> ELSE
> =MESSAGEBOX("Unable to Delete Event...Try Again Later",16,"No File Lock")
> SELECT sched
> UNLOCK
> ENDIF
> ELSE
> =MESSAGEBOX("Unable to Delete Event...Try Again Later",16,"No File Lock")
> ENDIF
>ENDIF
--sb--
