Probleme de datagridview

Version imprimable

bonsoir,
J'utilise cette fonction pour remplir un datagridview avec des données provenant d'un fichier texte.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
  Private Function remplir_dgv(ByVal NomFichier As String)
        Dim sLine As String
        Dim sr As StreamReader
        'Dim drt() As String
        Try
            sr = New StreamReader(NomFichier)
            ' Console.WriteLine("Debut du fichier")
            sLine = sr.ReadLine()
            While Not sLine Is Nothing
 
                sLine = sr.ReadLine()
                Dim drt() As String = sLine.Split(",")
                Dgv.Rows.Add(drt)
            End While
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            'FERMER le lecteur en tout etat de cause 
            sr.Close()
        End Try
    End Function

Le probleme est que la premiere ligne de mon texte n'est jamais prise.

07/04/2011, 19h42
Pol63

fonctionnement normal qui correspond à ton code ...

tu fais un readline, tu rentres dans ta boucle, et tu refais un readline sans avoir traité les données de la 1ère ligne

Autant pour moi :oops:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Private Function remplir_dgv(ByVal NomFichier As String)
        Dim sLine As String
        Dim sr As StreamReader
        'Dim drt() As String
        Try
            sr = New StreamReader(NomFichier)
            ' Console.WriteLine("Debut du fichier")
 
            Do
                sLine = sr.ReadLine()
                Dim drt() As String = sLine.Split(",")
                Dgv.Rows.Add(drt)
            Loop Until sLine Is Nothing
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            'FERMER le lecteur en tout etat de cause 
            sr.Close()
        End Try
    End Function