Discussion :

[MIWAN]

Bonjour
Voila mon projet de cahier de notes est presque terminé mais il me manque quelques retouches esthétique :
Mon problème c’est que je veut faire une saisie sur un StringGrid dont les changements seront prises en compte par une Table j’ai fait ce code mais la table n’enregistre pas les valeurs de StringGrid

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.Button1Click(Sender: TObject);
var
r,c:integer;
begin
 
table1.Open;
 
for r:=1 to StringGrid1.RowCount-1 do
for c:=1 to StringGrid1.ColCount-1 do
begin
Table1.Edit;
  Table1.Fields[c].AsString:=StringGrid1.Cells[c,r];
Table1.Post;
end;
ShowMessage('Enregistrement effectuer');
end;

je ne sais ce qui manque ?

je joint le fichier a corrigé.

[SergioMaster]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Button1Click(Sender: TObject);
var
r,c:integer;
begin
table1.Open;
for r:=1 to StringGrid1.RowCount-1 do
begin
 Table1.Append; //<--------- ajout d'enregistrement
 for c:=1 to StringGrid1.ColCount-1 do    Table1.Fields[c].AsString:=StringGrid1.Cells[c,r];
Table1.Post;
end;
ShowMessage('Enregistrement effectué');
end;

Si la table est vide c'est un append ou insert qu'il faut utiliser
sinon il faut d'abord se positionner sur l'enregistrement (soit par locate, findkey etc..)
ensuite c'est un enregistrement par ligne d'où ma correction des boucles

Nota : je ne télécharge et ne regarde que rarement les pièces jointes

[MIWAN]

Si la table est vide c'est un append ou insert qu'il faut utiliser
sinon il faut d'abord se positionner sur l'enregistrement (soit par locate, findkey etc..)
ensuite c'est un enregistrement par ligne d'où ma correction des boucles

Nota : je ne télécharge et ne regarde que rarement les pièces jointes

Effectivement la table est n’est pas vide . et dans mon cas je doit faire Table1.Edit

MR : SergioMaster

J’ai résolu le problème

+ +++