Probleme d'affichage d'une List view

Question

bonjour, encore sabrina! voila je suis en stage n entreprise et je dois utiliser une listview, j'ai mis le code dans une fonction que j'appelle enuite dans le form_load, le voici : 

Dim Rst_Sql As ADODB.Recordset
Dim Lst_Item As ListItem


                   Call MDI_Cella.Panels(MDI_PANEL_Doc, vbNullString, False)
                Lvw_Projets.Visible = True
                Lvw_Projets.ListItems.Clear
                Lvw_Projets.ColumnHeaders.Clear
                Lvw_Projets.View = lvwReport
                Lvw_Projets.FullRowSelect = True
                Lvw_Projets.ColumnHeaders.Add , , "Code"
                Lvw_Projets.ColumnHeaders.Add , , "Libell&#233;"
                 Set Cmd_PSSql = New ADODB.Command
                Cmd_PSSql.ActiveConnection = Cls_Db_Me.Connexion
                Cmd_PSSql.CommandType = adCmdStoredProc
                Cmd_PSSql.CommandText = "PS_GET_ALL_PROJETS"
                Set Rst_Sql = Cmd_PSSql.Execute
                Set Cmd_PSSql = Nothing
                If Not Rst_Sql.EOF Then
                    While Not Rst_Sql.EOF
                        Set Lst_Item = Lvw_Projets.ListItems.Add
                        Lst_Item.SubItems(1) = Rst_Sql("CODE_PRJ")
                        Lst_Item.SubItems(2) = Rst_Sql("LIBELLE_PRJ")
                        Rst_Sql.MoveNext
                    Wend
                    Call GS_LvwAjusteColonne(Lvw_Projets, Me)
                                     If Lvw_Projets.ListItems.Count > 0 Then
                        Lvw_Projets.ListItems(1).Selected = True
                    End If
                 End If
HUMMM quelle peut etre l'erreur? mon stage finit demain et depuis le d&#233;but j'ai tout tent&#233; pour que ca s'affiche mais rien &#224; faire... 
merci d'avance de votre aide
sabrina

econs · Answer

2 colonnes &#224; la d&#233;claration :


               
Lvw_Projets.ColumnHeaders.Add , , "Code"
               
Lvw_Projets.ColumnHeaders.Add , , "Libell&#233;"






3 colonnes ici (ListItem + 2 ListSubItems) :
                       
Set Lst_Item = Lvw_Projets.ListItems.Add
                       
Lst_Item.SubItems(1) = Rst_Sql("CODE_PRJ")
                       
Lst_Item.SubItems(2) = Rst_Sql("LIBELLE_PRJ")


d&#233;j&#224;, l&#224;, il y a un probl&#232;me.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

sabou94 · Answer

hum oui deja c exacte mais ce que je comprend surtout pas c pourquoi : 
1- il ne me mets pas d'erreur
2- il ne m'affiche rien! comme si la listview n'existait pas! bizarre non? 
bon je v continuer &#224; chercher, merci de ta r&#233;ponse! 
sabrina

sabou94 · Answer

tsss faites pas attention &#224; ma connerie! c t juste une frame qui s'affichait par dessus c'est pour ca que je la voyais pas ma listview!que d'erreurs stupides... 
bonne journ&#233;e &#224; tous! 
sabrina

Probleme d'affichage d'une List view

3 réponses

Discussions similaires