Discussion :

[Alex70]

Bonjours à tous,

Voilà cela fait un petit moment que je cherche mais je ne trouve pas de réponse a ma question, comme cela fait quelque temps que je ne fais plus de VB6... j'ai du mal.

Voila mon problème :

Je cré un flexgrid, je le rempli tout ça fonctionne parfaitement mais j'aimerais savoir comment mettre des noms dans des entête de colonnes.

Mes résulats s'affiche comme ça

Produit 1 | Prix 1 etc...

Et j'amerais avoir des entete a toutes les colonnes, sachant que les entete ne changerons jamais...

Voila le code qui rempli le flexgrid :

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
49
50
51
 
 
Sub RemplirGrid()
 
Dim i As Integer
Dim j As Integer
 
'Requete SQL de recherche des éléments
StrSQL = "Select nom_objet,....."
 
'Exécution de la requête
Set rs = DB.OpenRecordset(StrSQL)
 
rs.MoveLast
rs.MoveFirst
NbC = rs.Fields.Count
NbL = rs.RecordCount
 
'Affectation du nombre de colonnes à la flexgrid
MSFlexGrid1 = NbC
'Affectation du nombre de lignes à la flexgrid
MSFlexGrid1 = NbL
'On vide la flexgrid s'il existait des données
Call VideGrid(NbL, NbC)
 
'Message si aucun élément ne se trouve dans la base de données
If rs.EOF Or rs.BOF Then
    MsgBox "Aucun élément trouvé."
    'Stop
    Call VideGrid(NbL, NbC)
    Exit Sub
End If
 
'Placement du curseur sur le premier enregistrement
rs.MoveFirst
 
'Affichage des données dans la flexgrid
For i = 0 To rs.RecordCount - 1
    MSFlexGrid1.Row = i
    For j = 1 To rs.Fields.Count - 1
        MSFlexGrid1.Col = j
        If IsNull(rs.Fields(j)) Then
            MSFlexGrid1.Text = ""
        Else
            MSFlexGrid1.Text = rs.Fields(j)
        End If
    Next j
    rs.MoveNext
Next i
 
End Sub

J'imagine que c'est simple mais j'avoue que depuis le temps que je n'ai pas codé en VB6, les choses les plus simples deviennent compliquées....

Merci a tous.

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
MSFlexGrid1.Rows = 10
MSFlexGrid1.Cols = 4
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.TextMatrix(0, 0) = "1°Colonne" '< ======== premier parametre = 0 = ligne fixe
MSFlexGrid1.TextMatrix(0, 1) = "2°Colonne" '<========= deuxieme parametre = N° de la colonne
MSFlexGrid1.TextMatrix(0, 2) = "3°Colonne"
MSFlexGrid1.TextMatrix(0, 3) = "4°Colonne"
End Sub

[ucfoutu]

Bonsoir,

De telles entêtes n'existent à ma connaissance par pour ce contrôle.
Tu peux par contre "jouer" avec les deux propriétés suivantes :
FixedCols et FixedRows
et gérer comme tu l'entends (étant entendu que le "scroll" n'affectera pas ce qui est ainsi "figé").

EDIT : ah ... croisé avec Progelect (salut à Progelect, donc).

[Alex70]

Un grand merci Progelect cela fonctionne a merveille !

[Selve]

Bonjour

Voir aussi la propriété formatstring du controle