DBCtrlGrids : en Synchroniser 2 (ou plus)

Bonjour,
sur une forme j'ai deux DbCtrlGrids liées a 2 Datasets différents .
Pour les besoins de mon exemple , je vais utiliser les tables Suivantes

Citation:

---

MAITRE

• SAISON
• PRIXBASE

DETAIL

• REPRESENTANT
• SAISON
• PRIX

---

la première Grille est liée a MAITRE
la seconde a une Query

Code:

---

1 2 3

SELECT COALESCE(D.SAISON,M.SAISON) AS SAISONREP, COALESCE(PRIX,M.PRIX_BASE) AS PRIXREP FROM MAITRE M LEFT JOIN DETAIL D ON M.SAISON=D.SAISON AND D.REPRESENTANT=:Representant

---

ce qui fait que : a tout enregistrement de la dbctrlgrid1 correspond un enregistrement de dbctrlgrid2 . Les deux grilles sont disposées horizontalement, et le panneau actif est mis en couleur (selectedcolor:=clActiveCaption);

Voilà , la situation est posée
pour synchroniser les tables , je passe par les events afterScroll et me positionne donc sur le Champ SAISON via un locate (rassurez-vous , il y a au maximum 12 'SAISONS')

mon problème : les deux grilles , malgré une taille de panneau identiques ne sont pas toujours Synchrones .
Quelques fois je me retrouve avec un décalage (bien visible hélas) entre les deux grilles (ce sont les bons enregistrements) , le locate ayant tendance a positionner le panneau de l'enregistrement en colonne 1 .

Comment faire pour que les panneaux concordent ?
j'ai essayé :
- DBCtrlGrid2.Panel:=DBCtrlGrid1.Panel // ne fonctionne pas panel seul les panels visibles sont numérotés
- de dériver un DBCtrlGrid en Stringgrid // échec lamentable leftcol et col ne bougent pas

Je patauge lamentablement , sur les scrollby et il y a certainement des pistes que j'ai encore ignorées

:Representant c'est un paramètre fourni avec le système de MasterSource\Field ?

Sinon, forcer la position d'un DBGrid, c'est déjà tordu à coup de ScrollBy et bidouille mais pour un TDBCtrlGrid, je ne suis jamais allé aussi loin, en général, si j'ai une relation Maitre\Detail avec deux Grilles, la selection dans l'un provoque un "filtre" dans l'autre

Citation:

---

Envoyé par ShaiLeTroll

:Representant c'est un paramètre fourni avec le système de MasterSource\Field ?

---

Oui

Citation:

---

Sinon, forcer la position d'un DBGrid, c'est déjà tordu à coup de ScrollBy et bidouille

---

je confirme :aie:
en fait , tant que ça 'monte' (grille1) alors je me débrouille synchroniser la grille2 (en fait je fais une boucle depuis le 1°enrg de détail jusqu'au recno de master) , par contre , quand ça 'descend' c'est là ou ça déconne ! tant que la grille de départ affiche le record n°1 pas de soucis , c'est ensuite que cela se corse (aurait dit Napoléon).

[edit] Après bien des tâtonnements ai-je trouvé une solution si simple qu'elle crève les yeux

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm.MaitreAfterScroll(DataSet: TDataSet); begin if Detail.Active then begin Detail.DisableControls; case Sign(Detail.RecNo-Maitre.RecNo) of -1 : while Detail.RecNo<>Maitre.RecNo do Detail.Next; 1 : while Detail.RecNo<>Maitre.RecNo do Detail.Prior; end; Detail.EnableControls; end; end;

---

Bon , je le ferais pas avec une grosse table , mais comme dit au début avec 12 records maxi ça a l'air de passer nickel . Je vais faire un peu plus d'essais pour valider ça

Salut Serge,

Si ton deuxieme DbCtrlGrid doit avoir une correspondance avec ton premier systématiquement, tu pourrais utiliser des Listbox ?

Dans la listbox 1 tu affiche la table maitre
dans la listbox 2 tu affiche le résultat du scroll (ou même du clique) de la listbox 1.

Je l'ai fais avec 3 listbox, évidement qu'avec de faible enregistrement.

bye

Pour bien saisir ce qu'est mon objectif , une image vaudra mieux que de long discours :D , le problème posé était simplifié à l’extrême :roll:

Comme l'a dit Shailetroll , dans mon second post (DbCtrlGrid : Cacher les scrollbars

Citation:

---

Envoyé par Shailetroll

tout ça parce que le client habitué à DBase+TTable voulait pareil en MySQL+TQuery)

---

bon moi c'est plutôt : "Tout ça parce que le 'client' est habitué (n' a jamais connu autre chose) à Excel" bien qu'il soit conscient des limites (sinon je ne ferais rien :lol: )

ceci étant , j'ai avancé (voir dernier Edit) , encore quelques cas particuliers genre delete/insert et la saisie d'un jeu d'essai plus important pour confirmer :roll: et je passerais à d'autres fonctions du programme plus ou moins aussi :fou: