Discussion :

[Yepazix]

Alors voila mon problème :
j'ai une table PARADOX qui contient un tas de champs qui contiennent tous des string. Les champs vont tous par 2, il y a par exemple le champs date et son associé, datea, le champs 8 et son associé8a, le champs 12 et son associé 12A etc...

Je voudrais créer un code qui va passer en revue toute ma table et qui va modifier un champs en fonction de se qu'il trouve dans son champs associé.

Exemple :

Valeur1 = 007
Valeur2 = 99

A chaque fois que le code trouverait 007 dans un champs xA il mettrait 99 dans le champs x associé.

Le problème c'est que le code devrait chercher 007 dans tous les champs donc pas question d'uttiliser filter pour trouver le champs.

Existe t'il un moyen de faire ca ?

[enry]

Il existe un moyen, c'est avec un query que tu trouveras ton bonheur
mais il faut que tu connaisse un peu le langage SQL, vas voir les cours
qui sont proposés sur Developpez.com, ça aide beaucoup.
Sinon il reste l'aide Delphi.

[Francis]

Résoudre le problème en Sql ne me parait pas évident.
Je vous préconise la solution suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 Matable.Open
While Not Matable.Eof  do 
  Begin
 For i=0 to Matable.FieldCount-1 do
      Begin
      If Matable.Fields[i].Value = "007" 
          Then   Matable.Fieldbyname(Matable.Fields[i].FieldName+'A').Asstring = '099'
End; // For
NExt;
End; // While

Bon Courage

[JustMe]

Joli code Francis.
Seulement des erreurs de syntax pour "007" => '007' et Next qui doit être précédé par MaTable. car les formes ont une méthode Next qui passe vers la forme enfant suivante. (je sais que c'est parceque tu ne code pas vraiment -Tu explique-)

Et pour gagner du temps tu désactive les controles associés à la tables par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaTable.DisableControls;

Mais n'oublie pas de les réactiver par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaTable.EnableControls;

Car ça risque d'être un peu long.