Posez votre question Signaler

Impossible de remplir une datagridview à partir d'un tableau [Résolu]

Messages postés
6
Date d'inscription
samedi 12 janvier 2008
Statut
Membre
Dernière intervention
17 février 2013
 - - Dernière réponse : bel84
Messages postés
6
Date d'inscription
samedi 12 janvier 2008
Statut
Membre
Dernière intervention
17 février 2013
 - 17 févr. 2013 à 21:50
VB.NET Posez votre question Signaler
Bonsoir,

Je cherche depuis quelque temps à remplir une datagrid pour afficher les données d'un fichier texte structuré en VB.NET.
Pour cela, je remplis une table à 2 dimensions avec les données contenues dans le fichier, mais je n'arrive pas à afficher les données dans la grille de mon formulaire.

voici mon code: 
 Dim col, lig, nblignes As Integer
 Dim tableau(14, lig), texte As String
            'On remplie le tableau avec les données du fichier
            'On compte le nombre d'associations existantes dans le fichier associations.txt:
            Dim lignes() As String = File.ReadAllLines(fichier + ".txt")
            nblignes = lignes.Length
            'On remplit la table T(,) avec le contenu du fichier
            FileOpen(1, fichier + ".txt", OpenMode.Input)
            lig = 0
            ReDim Preserve tableau(14, nblignes)
            While Not lig >= nblignes
                lig = lig + 1
                texte = LineInput(1)
                For col = 0 To 13
                    tableau(col, lig) = Split(texte, "/")(col)
                Next col
            End While
            FileClose(1)

            grille_membres.DataSource = tableau(0, 0)


Si quelqu'un peux m'expliquer, car je ne trouve que des tutos à partir de bases de données SQL, EXCEL, ou autre.
Je précise que mon tableau est bien rempli avec les bonnes données.

Merci d'avance à tous les bons.
Afficher la suite 

Votre réponse

Répondre au sujet

6 réponses

Meilleure réponse
Signaler Commenter la réponse de Zermelo
3
Merci
Bonjour.

De nombreux tutoriels sont présents sur ce site. Si nombreux qu'il faut de la patience pour les trouver. Faut-il s'en plaindre ? Dites-vous bien que si je l'ai trouvé, c'est parce que je l'ai cherché, et que si je vous ai donné les informations au compte-gouttes, c'est précisément pour vous apprendre à chercher.


Cordialement.


Étant illettré, je signe d'une croix : ×

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 139 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Zermelo
Signaler Commenter la réponse de Zermelo
0
Merci
Bonjour bel84.

Il existe sur ce site un tutoriel traitant du contrôle DataGridView.

Bon courage.



Étant illettré, je signe d'une croix : ×
Commenter la réponse de Zermelo
Signaler Commenter la réponse de bel84
Messages postés
6
Date d'inscription
samedi 12 janvier 2008
Statut
Membre
Dernière intervention
17 février 2013
0
Merci
Bonjour Zermolo,

Je doit être diminué du cerveau, car je ne trouve aucun tuto qui traite de mon problème.

Si tu connais l'adresse, ce serait sympa de la passer.
Merci
Commenter la réponse de bel84
Signaler Commenter la réponse de bel84
Messages postés
6
Date d'inscription
samedi 12 janvier 2008
Statut
Membre
Dernière intervention
17 février 2013
0
Merci
Re bonjour,

J'ai accepté la réponse, mais car elle m'a mis sur la voie, mais il a fallu pas mal fouiller après.

Pour éventuellement aider d'autres diminués du bulbe, comme moi, je propose le code final qui fonctionne très bien:
(Pour la compréhension, le datagridview a été nommé dans le formulaire : grille_membres. 
        Dim col, lig, nblignes As Integer
        Dim tableau(14, lig), row(14), texte As String
'On remplie le tableau avec les données du fichier
            'On compte le nombre d'associations existantes dans le fichier associations.txt:
            Dim lignes() As String = File.ReadAllLines(fichier + ".txt")
            nblignes = lignes.Length
            nblignes = nblignes - 1
            'On remplit la table T(,) avec le contenu du fichier
            FileOpen(1, fichier + ".txt", OpenMode.Input)
            lig = 0
            ReDim Preserve tableau(14, nblignes)
            While Not lig > nblignes
                texte = LineInput(1)
                For col = 0 To 13
                    tableau(col, lig) = Split(texte, "/")(col)
                    row(col) = tableau(col, lig)
                Next col
                grille_membres.Rows.Add(row)
                lig = lig + 1
            End While
            FileClose(1)
Commenter la réponse de bel84
Signaler Commenter la réponse de bel84
Messages postés
6
Date d'inscription
samedi 12 janvier 2008
Statut
Membre
Dernière intervention
17 février 2013
0
Merci
J'en ai pris plein la tronche, mais merci tout de même.
Commenter la réponse de bel84
Signaler Commenter la réponse de Zermelo
-2
Merci
Re.

C'est le tutoriel suivant:
Auteur : bikergate
Date de dépôt : 36/03/2006
Numéro : 379
Catégorie : C#

Cordialement.

Étant illettré, je signe d'une croix : ×
Commenter la réponse de Zermelo

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.