Information générale
Catégorie:
Codage, syntaxe et commandes
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement