Discussion :

[totoche]

Mon MSHflexGrid ne s'affiche pas comme je le souhaite...
le + qui permet d'afficher les enregistrements de la 2ème bande n'apparait pas

je voudrai une ligne avec comme entête de colonne
"Id_Transport" "Type_Transport" "Lieu"
et une 'sous ligne' +
"titre" "prix" (un bloc jaune devrait-etre sous Id_Transport)

au lieu j'ai deux fois la même ligne :
"Id_Transport" "Type_Transport" "Lieu" "titre" "prix"
Id_Transport" "Type_Transport" "Lieu" "titre" "prix"
puis les données...

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub Grille_Formatage()
 
  Dim i As Long
 
  With GrilleMSH
 
    .ColHeader(0) = (flexColHeaderOn)
    .ColHeaderCaption(0, 1) = "Id_Transport"
    .ColHeaderCaption(0, 2) = "Type_Transport"
    .ColHeaderCaption(0, 3) = "Lieu"
 
    .ColHeader(1) = (flexColHeaderOn)
    .ColHeaderCaption(1, 0) = "titre"
    .ColHeaderCaption(1, 1) = "px"
 
  ' Indentation de la bande 1 (les ouvrages)
    .BandIndent(1) = 3
    .BackColorIndent(1) = vbYellow
 
    'Alignement des titres de colonnes pour la bande 0
    For i = 0 To .Cols - 1
      .ColAlignmentHeader(0, i) = 4
    Next
 
    'Alignement des titres de colonnes pour la bande 1
    For i = 0 To .Cols - (.BandIndent(1) + 1)
      .ColAlignmentHeader(1, i) = 4
      .ColAlignmentBand(0, i) = 9
      .ColAlignmentBand(1, i) = 9
    Next
 
    'Définition de la largeur des colonnes première bande (0)
    .ColWidth(0, 0) = 500
    .ColWidth(1, 0) = 600
    .ColWidth(2, 0) = 1500
 
    'Définition de la largeur des colonnes seconde bande (1)
    .ColWidth(0, 1) = 1000
    .ColWidth(1, 1) = 1000
 
   .ExpandAll
 
    .Col = 1
    .Row = 1
 
  End With
 
End Sub

Merci de votre aide

[totoche]

ça vient de ma requete ???
affichage souhaité
Type/Lieu/Titre
+
"bloc jaune/date/px
Mon code Modifié

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
16
17
18
19
20
21
22
23
 
  SQL = "SELECT Transports.Lieu, Transports.Type_Transport, Transports.Lieu, Transports.titre, " & _
  "TableDate.DATE, TableDate.px " & _
  "FROM Transports INNER JOIN TableDate ON Transports.Id_Transport = TableDate.Id_Transport"
  rsPub.Open SQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
 
Set GrilleMSH.DataSource = rsPub
 
...
  With GrilleMSH
 
    .ColHeader(0) = (flexColHeaderOn)
    .ColHeaderCaption(0, 1) = "Type_Transport"
    .ColHeaderCaption(0, 2) = "Lieu"
    .ColHeaderCaption(0, 3) = "Titre"
 
    .ColHeader(1) = (flexColHeaderOn)
    .ColHeaderCaption(1, 0) = "date"
    .ColHeaderCaption(1, 1) = "px"
 
  ' Indentation de la bande 1
    .BandIndent(1) = 3
    .BackColorIndent(1) = vbYellow

[totoche]

pour ceux (ou celui plus humblement) que ça interressera, il semble que pour faire fonctionner le MSHflexGird, et acceder au recordset hierarchique il faut utiliser un Provider = "MSDataShape".
et l'instruction sql "SHAPE "
http://jacma.developpez.com/accesdonneesado/


Et làtout fonctionne bien,
Merci encore a Jacques Malatier pour la qualité de ces tuts.

[jacma]

Merci