bonjour;
j'ai un probleme et je veux de l'aide:
j'ai une table Paradox:
id date credit debit solde
voila ; je veux creer un bouton nomé (" calculer solde" ) qui parcourir la table paradox et calculer le solde de chaque ligne
exemple:
etc.........id date credit debit solde
0 20/09/2009 1000 0 1000
1 20/09/2009 0 2000 -1000
voila le code du boutton:
mais quand je clique il ya un message d'erreur du genre:
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 procedure TForm1.Button2Click(Sender: TObject); begin Table1.Edit; Table1.Last; edit2.text:=Table1.FieldByName('id').Text; Table1.First; m:=strtoint(edit2.text); for i:=1 to m do begin me:=soldes+strtoint(table1.FieldByName('credit').Value)-strtoint(Table1.FieldByName('debit').Value); ce:=soldes+me; soldes:=me; Table1.FieldByName('solde').Value:=inttostr(soldes); Table1.Post; end end;
table1:l'ensemble de donnée n'est pas en mode edition ou insertion
Partager