Comment utiliser 1 Flexgrid
cs_TST
Messages postés
7
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
9 mai 2002
-
1 avril 2002 à 16:33
CTZV Messages postés 1 Date d'inscription dimanche 31 mars 2002 Statut Membre Dernière intervention 1 avril 2002 - 1 avril 2002 à 17:57
CTZV Messages postés 1 Date d'inscription dimanche 31 mars 2002 Statut Membre Dernière intervention 1 avril 2002 - 1 avril 2002 à 17:57
A voir également:
- Comment utiliser 1 Flexgrid
- Comment utiliser netbeans - Conseils pratiques -Java
- Utiliser access - Conseils pratiques -Visual Basic / VB.NET
- Comment utiliser access - Conseils pratiques -Visual Basic / VB.NET
- L'opération doit utiliser une requête qui peut être mise à jour - Forum C# / .NET
- LOPERATION DOIT UTILISER UNE REQUETE QUI PEUT ETRE MISE A JOUR - Forum SQL
1 réponse
CTZV
Messages postés
1
Date d'inscription
dimanche 31 mars 2002
Statut
Membre
Dernière intervention
1 avril 2002
1 avril 2002 à 17:57
1 avril 2002 à 17:57
'Construction du FlexGrid
HFlex.Row = 0
For iColonne = 0 To 1 'je l'initialise à 2 colonnes
With HFlex
.Col = iColonne
.ColWidth(0) = 3500 'largeur des colonnes
.ColWidth(1) = 3600
.ColAlignment(iColonne) = 1
.CellAlignment = 1
.AllowUserResizing = flexResizeNone
Select Case iColonne
Case 0
.Font.Size = 10 ' titre des colonnes
.Text = "Nom du proriétaire"
Case 1
.Font.Size = 10
.Text = "Tantième"
End Select
End With
Next iColonne
HFlex.Rows = QLigne + 1 'qligne=nbre ligne du
' recordset
Do Until Rds.EOF
For i = 0 To QLigne - 1
For iLigne = 1 To 1
For iColonne = 0 To 1
HFlex.Row = i + 1
HFlex.Col = iColonne
HFlex.Text = Rds.Fields(iColonne)
Next iColonne
Next iLigne
Next i
Loop
'Autre solution
'Supprimer la boucle iColonne et remplacer la
'ligne
HFlex.Text = Rds.Fields(iColonne)
par ces deux lignes
HFlex.TextMatrix(1, 0) = Rds!nom
HFlex.TextMatrix(1, 1) = Rds!tantiemes
HFlex.Row = 0
For iColonne = 0 To 1 'je l'initialise à 2 colonnes
With HFlex
.Col = iColonne
.ColWidth(0) = 3500 'largeur des colonnes
.ColWidth(1) = 3600
.ColAlignment(iColonne) = 1
.CellAlignment = 1
.AllowUserResizing = flexResizeNone
Select Case iColonne
Case 0
.Font.Size = 10 ' titre des colonnes
.Text = "Nom du proriétaire"
Case 1
.Font.Size = 10
.Text = "Tantième"
End Select
End With
Next iColonne
HFlex.Rows = QLigne + 1 'qligne=nbre ligne du
' recordset
Do Until Rds.EOF
For i = 0 To QLigne - 1
For iLigne = 1 To 1
For iColonne = 0 To 1
HFlex.Row = i + 1
HFlex.Col = iColonne
HFlex.Text = Rds.Fields(iColonne)
Next iColonne
Next iLigne
Next i
Loop
'Autre solution
'Supprimer la boucle iColonne et remplacer la
'ligne
HFlex.Text = Rds.Fields(iColonne)
par ces deux lignes
HFlex.TextMatrix(1, 0) = Rds!nom
HFlex.TextMatrix(1, 1) = Rds!tantiemes
