Which line of code generates the error? Did you try to use Debugger at the point of error to check variables and property values?


>
>Any Ideas Why the code below is giving me a type mismatch error ? Thanx for any help recieved.
>
>

>LOCAL ldDate,liSitting
>
>ldDate=THISFORM.txtBox_date.VALUE
>liSitting=THISFORM.ccombobox1.VALUE
>
>SELECT ehrbt
>LOCATE
>SCAN FOR BETWEEN(ldDate,from_date,to_date) AND !EMPTY(lisitting)
>
>  SELECT 0
>  SELECT *;
>    FROM ehrbb ;
>    WHERE ehrbb.tableid=ehrbt.tableid .AND. ehrbb.sittingid=liSitting .AND. ehrbb.book_date=ldDate ;
>    INTO CURSOR tmpBook
>  IF _TALLY>0  && have booking
>    MESSAGEBOX("Its working")
>    THISFORM.clistbox1.ADDITEM(TRANSFORM(ehrbt.tableid))
>    THISFORM.clistbox1.ADDLISTITEM(ehrbt.t_description,THISFORM.clistbox1.NEWITEMID,2)
>    THISFORM.clistbox1.ADDLISTITEM(ehrbt.special_req,THISFORM.clistbox1.NEWITEMID,3)
>    &&Thisform.Refresh
>  ELSE
>
>    MESSAGEBOX("Nothing There")
>
>  ENDIF
>
>  SELECT ehrbt
>ENDSCAN