Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Simple Syntax help
Message
 
 
À
14/12/2006 10:34:41
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01177599
Message ID:
01177602
Vues:
11
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
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform