pour mon probleme d'incrémentation je pense avoir trouvé une solution mais par contre je but sur la syntaxe
je voudrais quand j'insert le mot 'RP' dans le champs 'Journee', lancer une recherche du mot 'RP' dans les champs suivant, si il trouve un 'RP', il l'efface et affecte de nouveau 'RP'+ ma variable incrementé de 1 et puis il recommence jusqu"a la fin de la table...
voila mon code :
la boucle fonctionne mais elle rempli en incrémentant tt les champs suivant alors que je veux le faire que sur les champs contenant le mot 'RP'
je sais aussi que l'on peut utiliser FINDKEY mais je reussis a l'utiliser...si qq un a une idée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 procedure TForm1.Button1Click(Sender: TObject); var Option : TLocateOptions; ab:string ; begin ab:='RP'; Option := [loPartialKey]; with TableDB1 do begin active := True; if tableDB1.Locate('Journee','RP',Option)= true then begin delete While not Eof do begin Edit; FieldByName('Journee').asString:=ab+IntToStr(absrepos); post; inc(absrepos); next; end; end; end;
Partager