Insertion fichier Excel dans ListView SubItems et Items

Résolu
naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008 - 2 juil. 2008 à 14:12
naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008 - 2 juil. 2008 à 16:17
Bonjour a tous,



<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
 




J’essai d’insérer le contenue d’un fichier excel sur un ListView, mais un petit blém est apparue.



 




Le contenue des trois colonnes du fichier excel est inséré dans la première colonne de la ListView !



 






 


Voici le code ;



 






 
Dim
MyConnection As System.Data.OleDb.OleDbConnection







        MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath + "\Liste.xls;Extended Properties=Excel 8.0;")






 







       
Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter _






            ("select * from [Feuille1$]", MyConnection)






 







       
Dim DS As System.Data.DataSet = New System.Data.DataSet






 







        MyCommand.Fill(DS)






 







       
Dim TableExcel As DataTable






 







        TableExcel = DS.Tables(0)






 







       
With ListView1






            .View = View.Details                                           






            .CheckBoxes = False                                             






            .GridLines = True                                              






            .Columns.Add(TableExcel.Columns(0).ToString, 40, HorizontalAlignment.Left)






            .Columns.Add(TableExcel.Columns(1).ToString, 90, HorizontalAlignment.Left)






            .Columns.Add(TableExcel.Columns(2).ToString, 110, HorizontalAlignment.Left)    






             
End
With







       
Dim lvi As ListViewItem






 







       
For i AsInteger = 1 To TableExcel.Rows.Count - 1






            ListView1.Items.Add(TableExcel.Rows(i).Item(0).ToString & " - " & TableExcel.Rows(i).Item(1).ToString & " - " & TableExcel.Rows(i).Item(2).ToString)






           










       

Next






 






        MyConnection.Close()



 





 




Comment utiliser les SubItems que je puis les insérer a la fin dans Items ?



 




Merci d’avance



 







naim1970

1 réponse

naim1970 Messages postés 26 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 29 octobre 2008
2 juil. 2008 à 16:17
c'est fais
merci

naim1970
3