Discussion :

[STEF68600]

Bonjour a tous,

je tourne un peu en rond...

j'aimerais une piste pour filtrer un datagridview par le texte sélectionné dans un combobox déclenché par un bouton. le tableau est au préalable rempli par une base CSV (pour raison de compatibillitée des // postes de travail).

j'ai cherché mais tout ce que j'ai trouvé c'est par BDD, moi c'est un fichier CSV qui sera stocké sur un serveur.

ci-dessous le code :

appel de la fonction import:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 import.ImportDonnees("D:\fichier choix moteur\BASE DONNEE.csv")

remplissage des données dans le tableau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Imports System.IO
 
Module import
    Public Sub ImportDonnees(ByVal StrFile As String)
 
        Dim sr As StreamReader = New StreamReader(StrFile, System.Text.Encoding.Default)
 
        Dim Str As String
        Dim Cpt As Integer = 0
        Dim Delim As Char = ";"
        Dim SubChaine() As String
        Dim NbLine, NbCol As Long
        Form1.DataGridView1.Rows.Clear()
        Do Until sr.Peek = -1
            Str = sr.ReadLine()
 
            'Nbre Colonnes
            If Cpt = 0 Then
                For A As Integer = 1 To Len(Str)
                    If Mid(Str, A, 1) = Delim Then
                        NbCol += 1
                        System.Windows.Forms.Application.DoEvents()
                    End If
                Next A
                Form1.DataGridView1.ColumnCount = NbCol + 1
                Cpt = 1
            End If
 
            'Remplir DataGridView
            SubChaine = Str.Split(Delim)            
            Form1.DataGridView1.Rows.Add(SubChaine)
            System.Windows.Forms.Application.DoEvents()
            NbLine += 1
        Loop
    End Sub
End Module

Merci de votre aide.

[Graffito]

Plutot que remplir directement le dataGridView, je conseillerais de remplir une DataTable et de la binder au DataGridView via un BindingSource.

Ensuite, il suffit de définir le filtre dans la propriété filter du BindingSource, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
bindingSource1.Filter = 
 "Mon_Nom_de_ChampTexte" + "=" + "'" + MyListBox.Text + "'" ;

PS: les DoEvents() ne servent à priori à rien.

[STEF68600]

Merci graffito pour la piste

aie aie, c'est justement ce que je voulais éviter...

Je conseillerais de remplir une DataTable et de la binder au DataGridView via uin binding source.

donc le mieux est d'importer dans datatable au lieu datagridview, puis lier datatable avec datagridview, enfin filtrer la liaison.
est-ce j'ai tout compris ?

petite question quand même, la datatable reste en local (sur le poste) et n'a pas besoin de biblio spécifiques ?
c'est que l'ensemble des postes est administré de manière anarchique, je voudrais pas avoir de nouveau des problèmes d'erreurs.

[STEF68600]

bon voila où j'en suis :

recup du csv dans datatable ---> ok

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports System.IO
 
Module importCSV
    Function ReadCSV(ByVal path As String,ByVal nom As String) As System.Data.DataTable
        Dim sr As New StreamReader(path)
        Dim fullFileStr As String = sr.ReadToEnd()
        sr.Close()
        sr.Dispose()
        Dim lines As String() = fullFileStr.Split(ControlChars.Lf)
        Dim recs As New DataTable(nom)
        Dim sArr As String() = lines(0).Split(";"c)
        For Each s As String In sArr
            recs.Columns.Add(New DataColumn())
        Next
        Dim row As DataRow
        Dim finalLine As String = ""
        For Each line As String In lines
            row = recs.NewRow()
            finalLine = line.Replace(Convert.ToString(ControlChars.Cr), "")
            row.ItemArray = finalLine.Split(";"c)
            recs.Rows.Add(row)
        Next
        Return recs
    End Function
End Module

ma table s'appelle "table1" , je comprend pas comment binder au datagridview .

mon code qui marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 importCSV.ReadCSV("D:\fichier choix moteur\BASE DONNEE.csv","table1")
        Dim liaison As New BindingSource("je sais pas quoi mettre", "table1")
        DataGridView1.DataSource = liaison
        'Binding.Filter = "TENSION" + "=" + "'" + ComboBox2.Text + "'"

je suis allez voir sur msdn, mais j'ai rien compris.

une pt'ite piste ???

merci d'avance.

[STEF68600]

je nage complètement...

pourriez-vous m'aider à faire la relation entre le DATATABLE et le DATAGRIDVIEW.

merci d'avance.

[Graffito]

Créer une instance de Dataset et y ajouter la datatable.
Le Datasource est le Dataset et le dataMember le DataTable.

Et si ce n'est pas le mode par dédfaut, faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

datagridview1.AutoGenerateColumns = True