Hi,

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

Bobby


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