For example:
CREATE CURSOR Test (Field1 I NULL)
FOR lnCount = 1 TO 20
INSERT INTO Test VALUES (lnCount)
ENDFOR
INSERT INTO Test VALUES (NULL)
COUNT FOR Field1=10 AND IsEven(Field1)
FUNCTION IsEven(tnNumber)
? "Number is: " + TRANSFORM(tnNumber)
RETURN (MOD(tnNumber, 2) = 0)
ENDFUNC
Fabio
Précédent
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