Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionvar Total:real; begin Total := 0; DBGrid1.DataSource.DataSet.First; while not DBGrid1.DataSource.DataSet.Eof do try Total := Total + DBGrid1.Fields[6].Value; finally DBGrid1.DataSource.DataSet.Next; end; Edit3.Text:=floattostr(Total); end;
L'aide pour ce programme a été créée dans le format d'aide Windows utilisé dans les versions précédentes de Windows et qui n'est pas pris en charge dans Windows Vista.