WinDev 10 : Drag&Drop entre deux tables

Comment faire un Drag&Drop entre deux tables.

Nous souhaitons réaliser un Drag&Drop de la table1 vers la table2.
C'est simple pour gérer le Drag&Drop entre la table1 et la table2, il faut mettre en place trois événements.
Tout d'abord il faut définir la cible et la source :
table1..DndSource = DndProgrammé
table2..DndCible = DndProgrammé

Ensuite il faut mettre en place les évènemets
DnDEvénement("SurDebutGlisser", "table1", dndDébutGlisser)
DnDEvénement("SurSurvol", "table2", dndSurVol)
DnDEvénement("SurLâcher", "table2", dndLâcher)

Définition des procédures :

Procédure SurDebutGlisser()
schaine est une chaine // valeur à copier
// Changement du curseur
DnDCurseur(dndDéplacer)
(... traitement)
// Indique le type des données et les données à copier/déplacer lors du glisser/déplacer.
DnDDonne(CF_TEXT,schaine)

Procédure SurSurvol()
// Acceptation de la cible
DnDAccepte(dndCopier)
DnDCurseur(dndDéplacer)

Procédure SurLâcher()
sChaine est une chaine
// Récupère la chaine copiée
sChaine = DnDRécupère(CF_TEXT)
(... traitement)

Voila le principe du Drag&Drop. Il suffit d'adapter le code au besoin