Discussion :

[SergioMaster]

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

MAITRE

• SAISON
• PRIXBASE

DETAIL

• REPRESENTANT
• SAISON
• PRIX

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

Code Query :

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

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

[ShaiLeTroll]

: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

[SergioMaster]

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

Oui

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

je confirme
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 :

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

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

[BuzzLeclaire]

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

[SergioMaster]

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

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

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 )

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 et je passerais à d'autres fonctions du programme plus ou moins aussi