msflexgrid....?

Question

bonjour,
qql un saurait quelle est la propri&#233;t&#233; &#224; utiliser pour remplir une msflexgrid(avec un recordset) &#224; partir du d&#233;but (premi&#232;re ligne non fixe)et non &#224; la suite des lignes anciennement remplies?
j' ai fait un recordset.clear et ca supprime le contenu et pas les lignes 
voil&#224; merci d'avance

le5ejumeau · Answer

Vive la vie ....

le5ejumeau · Answer

en faite avant de remplir ton msflexgrid Tu dois donner le nombre de ligne maximal &#224; remplir avec la propriete rows 


si tu la remplie via une base de donn&#233;e cela devrai donner &#231;a : 


'On compte le nombre de Truc 
     req = "SELECT count(Truc) AS Nbr FROM ...
    rstNom.Open req, Cnx1
    Nombre= rstListeDom("Nbr")
    rstNom.Close
    
    'Charge propriete de la grille
    With msfListeDom
        .Clear   ' on efface
        .Rows = Nombre + 1     'Nombre de ligne +1 pour les titres
        .Cols = 5 ' nombre de colonne
        ' on met les titre        
        .Row = 0    
        .Col = 0
        .Text = "Nom colonne 1"
        .......
         ' Alignement
        .ColAlignment(0) = 4
        ........
        ' largeur des colonnes
        .ColWidth(0) = 3000
      ........
    End With

puis tu remplis ton msflexgrid

cs_amer_ezahir · Answer

salut tout le monde et bon courage dans ce site de sources des int&#233;l&#233;gents programmeurVotre texte ICIVotre texte ICI
Votre texte ICIVotre texte ICI

cs_amer_ezahir · Answer

on suppose qu'on a une table T_Produit(RefPdt, Designation, Prix) 
Private Sub form_load()
Dim commande As Recordset
  Set commande = db.OpenRecordset("Select * from produit ", dbOpenDynaset)
'pas de colonnes &#224; gauche des donn&#233;es
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Clear
MSFlexGrid1.ColWidth(0) = 1200
MSFlexGrid1.ColWidth(1) = 1200
MSFlexGrid1.ColWidth(2) = 1200
 'ecrire le nom du champ dans le champ de la grille
 MSFlexGrid1.TextArray(0) = "Reference Produit"
MSFlexGrid1.TextArray(1) = " Designation"
MSFlexGrid1.TextArray(2) = " Prix HT"
'je repete jusqu'&#224; la fin du recordset
 Do Until commande.EOF = True

'j'affiche les informations sur la feuille
MSFlexGrid1.AddItem commande!N&#176;Commande & Chr(9) & commande!refdet & Chr(9) & commande!quantit&#233; & Chr(9) & commande!refprdt & Chr(9) & commande!RefPdt & Chr(9) & commande!Desing & Chr(9) & commande!prix & Chr(9) & (commande!total & " DH")
commande.MoveNext

Loop
End Sub
je shouait que j'ai pu vous aider et bonne programmation 
bonne chance

cs_amer_ezahir · Answer

je suis d&#233;sol&#233; ma premi&#232;re r&#233;ponse est faute au niveau d'affectation des enregistrement &#224; la grille j'ai oubli&#233; de modifier les champs par ce que j'ai fait juste un copier coller &#224; partir de mon projet et j'ai oubli&#233; de mdifier le tout, mais celle l&#224; va marcherai bien
on suppose qu'on a une table T_Produit(RefPdt, Designation, Prix) 
Private Sub form_load()
Dim
 commande As Recordset
  Set
 commande = db.OpenRecordset("Select * from produit ", dbOpenDynaset)
'pas de colonnes &#224; gauche des donn&#233;es

MSFlexGrid1.FixedCols = 0
MSFlexGrid1.Clear
MSFlexGrid1.ColWidth(0) = 1200
MSFlexGrid1.ColWidth(1) = 1200
MSFlexGrid1.ColWidth(2) = 1200
 'ecrire le nom du champ dans le champ de la grille

 MSFlexGrid1.TextArray(0) = "Reference Produit"
MSFlexGrid1.TextArray(1) = " Designation"
MSFlexGrid1.TextArray(2) = " Prix HT"
'je repete jusqu'&#224; la fin du recordset

 Do Until commande.EOF = True
'j'affiche les informations sur la feuille
MSFlexGrid1.AddItem commande!RefPdt & Chr(9) & commande!Designation & Chr(9) & commande!Prix  & " DH")
commande.MoveNext
Loop
End Sub
je shouait que j'ai pu vous aider et bonne programmation 
bonne chance

Msflexgrid....?

5 réponses

Discussions similaires