Discussion :

[pierrot67]

Bonjour

là je galère comme je débute je n'ai jamais eu ce genre de problème et la je crois que je vais rentrer dans le vif du sujet avec delphi.

je m'explique.

j'ai 2 tables la premiere est à remplir par l'utilisateur elle comprend 2 champs quantité et designation.

la 2ème contient aussi un champ designation et quantite préremplie

je voudrais que quand je modifie le champ quantite de la table1 elle me modifie aussi le champ quantité correspondant au champ designation de la table2

en fait c'est une gestion de stock une table inventaire et une table sortie

j'espère que vous m'avez compris.

[TicTacToe]

Il te manque la notion de 'Clef'.
Sauf si tu considères ta clef comme la désignation mais c'est à déconseiller.

Lorsque tu postes sur une table
- tu te positionnes correctements sur ta 2eme table
- tu l'édites et tu y mets les infos de ta 1ere Table.

soit tu utilises SQL, style
update qté from table1 where Table1.designation = Table2.designation
Mais là, la syntaxe est surement fausse, je pratique pas assez souvent.

sinon, si tu utilises le BDE, il faut mettre un index sur designation puis

Code :

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

1
2
3
4
5
6
7
Table1 déjà positionnée
if findkey( Table2, [ Table1.Designation ] ) then
  begin
  Table2.Edit;
  Table2Qte.AsFloat := Table1Qte.AsFloat;
  Table2.Post;
  end;

bon courage !

[pierrot67]

j'ai oublié de préciser que qu'il y avait une opération entre la table1 et la table 2 cad je soustrait au champ de la table 2 les valeurs du champ de la table1

du style :

Code :

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

form2.table3quantite.value := form.table3quantite.value-form2.table2quantite.value

Mais avant il faut que je lui dise qu'il me fasse l'opération que sur le champ designation correspondant.

[TicTacToe]

prend .AsFloat comme cast (si tes champs sont numériques)
c'est préférable, les opérations attendent des numériques.

Sinon, cela revient au probleme du positionnement.

1. Construire un Index (primaire ou secondaire d'ailleurs) sur tes tables
2. Se positionner sur une ligne de la table grace à FindKey ...

Quant à l'opération... tu fais celle que tu veux

Si tu n'es pas familer avec les notions d'index/clefs, là il faut te diriger vers un tuto pour bien en comprendre les fonctionnements

[Rayek]

soit tu utilises SQL, style
update qté from table1 where Table1.designation = Table2.designation
Mais là, la syntaxe est surement fausse, je pratique pas assez souvent.

Code :

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

1
2
3
 
update Table2
  set Qté = Qté - Table1.Qté where Table2.designation = [Table1.designation]

[Table1.Designation] = un paramètre à faire passer

petite version corrigée de l'update de TicTacToe
Si j'ai bien compris ce qu'il cherche à faire ^^

[edit]je l'ai corrigé y avait plein d'erreur ^^[/edit]

[TicTacToe]

Merci Malatar

mais J'étais SUR que tu passerais par là pour mettre une tite requete correcte

a++

[pierrot67]

Bonjour

Avant de reposter je tenais à vous remercier j'ai pu me débrouiller avec le code que vous m'avez donné.


Merci beaucoup.