Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
GetNextModified kind of works
Message
De
17/09/2004 10:15:40
 
 
À
16/09/2004 15:25:30
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00941853
Message ID:
00943351
Vues:
57
Hi Jay.

but I also can't accept the results of GetNextModified if changes on the form really were not done. Is there a simple solution to this? Or maybe just one I can understand? <s>

I thought I just gave you the solution. When GETNEXTMODIFIED() returns a non-zero value, if you used SETFLDSTATE() to reset the field state fglag, you need to use GETFLDSTATE() to see if the changes are "real".

Code would look like this (off the top of my head and untested):
LPARAMETERS tcAlias
LOCAL lnModified, llIsChanged, lcFldState
*** see if we have pending changes
lnModified = GETNEXTMODIFIED( 0, tcALias )
DO WHILE lnModified # 0
  GO lnModified IN ( tcAlias )
  lcFldState = NVL( GETFLDSTATE( -1, tcALias ), '' )
  IF NOT EMPTY( CHRTRAN( lcFldState, '13', '' ) )
    *** Change is real - exit stage left
    llIsChanged = .T.
    EXIT
  ENDIF
ENDDO

RETURN llIsChanged
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform