Discussion :

[loloxp]

Bonjour à tous,
mieux vaut une image, plutôt qu'un long discours.
j'ai deux tables remplie par programmation dans la première une date de prestation, et dans la deuxième le détail de cette même prestation
j'aimerai que lorsque l'on clique sur le bouton supprimer, cela supprime la ligne dans la première table et les lignes de détail dans la deuxième table.
je sèche si quelqu'un pouvait me mettre sur la voie.
Merci.

[DelphiManiac]

Il faut parcourir la deuxième table en partant de la fin, tester l'id et supprimer les lignes dont l'id correspond par TableSupprime

L'important est de partir de la fin de la table, sinon les lignes supprimées décalent les lignes suivantes.

C'est une réponse très générique ne sachant par si la table est lié à un fichier ou pas.

Par contre, comme j'ai tendance à le répéter trop souvent, un bout de code qui pose problème est bien plus explicite que juste une demande d'aide. Plus la question est précise, circonstanciée et argumentée, plus adaptée sera la réponse ^^

[loloxp]

tu as raison DelphiManiac voici le bout de code:

i est un entier = 1

POUR TOUT LIGNE DE TABLE_Prestation_Decomposer
SI TABLE_Prestation_Decomposer.COL_ID[i] = TABLE_Prestation.COL_ID[i] ALORS
//1 : Supprimer
//2 : Annuler
SELON Dialogue("Etes vous sur de vouloir supprimer cette ligne ?")
// Supprimer
CAS 1
TableSupprime(TABLE_Prestation,i)
TableSupprime(TABLE_Prestation_Decomposer,i)
// Annuler
CAS 2

FIN
FIN
FIN

[thblandeau]

Moi j'aurais fait comme cela

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
i est un entier = 1    // n° ligne dans TABLE_Prestation
//1 : Supprimer
//2 : Annuler
SELON Dialogue("Etes vous sur de vouloir supprimer cette ligne ?")
// Supprimer
CAS 1
POUR n=TABLE_Prestation_Decomposer..occurrence _A_ 1 PAS -1
  SI TABLE_Prestation_Decomposer.COL_ID[n] = TABLE_Prestation.COL_ID[i] ALORS
    TableSupprime(TABLE_Prestation_Decomposer,n)
  FIN
  TableSupprime(TABLE_Prestation,i)
// Annuler
CAS 2
 
FIN

[loloxp]

Merci pour ton aide.
je viens de testé ton code, cela fonctionne lorsqu'il n'y a qu'un ligne a supprimer dans la table(2), mais lorsqu'il y en a plusieurs j'ai cette erreur:

Erreur à la ligne 9 du traitement Clic sur BTN_Supprimer1.
La liste est vide.
Aucun indice n'est valide pour le champ TABLE_Prestation.
(Indice spécifié : 1).

----- Informations techniques -----

Projet : SLS

Appel WL :
Traitement de 'Clic sur BTN_Supprimer1' (FEN_Prestation.BTN_Supprimer1), ligne 9, thread 0

Que s'est-il passé ?
La liste est vide.
Aucun indice n'est valide pour le champ TABLE_Prestation.
(Indice spécifié : 1).

Code erreur : 10060
Niveau : erreur fatale (EL_FATAL)

Dump de l'erreur du module 'wd170obj.dll' (17.0.381.12).
Identifiant des informations détaillées (.err) : 10060
Informations supplémentaires :
EIT_PILEWL :
Clic sur BTN_Supprimer1 (FEN_Prestation.BTN_Supprimer1), ligne 9
EIT_DATEHEURE : 24/07/2012 08:53:01

Assistance

-Vérifiez que la liste/combo utilisée est non vide avant d'appeler la fonction en question.

[thblandeau]

J'ai recopié la 1ere ligne de ton code

Code :

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

i est un entier = 1

J'ai supposé que c'était la ligne à supprimer. Bien évidemment, il est plus judicieux de mettre par exemple :

Code :

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

1
2
i est un entier = tableselect(TABLE_Prestation)
SI i = -1 ALORS RETOUR