Discussion :

[Slumpy]

Salut,

voila mon probleme. Je n arrive pas a afficher dans un datagridview, le contenu d une list.
J arrive a afficher le contenu d un dataset qui est le resultat d une procedure de base de donné, mais pas d une simple list que je cré a la main ...

Par exemple, si j ai une classe catchment :

Code :

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

1
2
3
4
5
6
7
8
Public Class catchment
    Public c1 As Integer
    Public c2 As Double
    Public c3 As Double
 
    Sub New()
    End Sub
End Class

et une form

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
Public Class Form1
    Public catchlist As New List(Of catchment)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim catch1 As New catchment
        Dim catch2 As New catchment
        catch1.c1 = 11
        catch1.c2 = 12
        catch1.c3 = 13
        catchlist.Add(catch1)
        catch2.c1 = 21
        catch2.c2 = 22
        catch2.c3 = 23
        catchlist.Add(catch2)
    End Sub
End Class

et que je glisse un objet Datagridview sur ma forme. Comment faire pour que le contenu de catchlist soit visible dans cette gridview ?

J aurais pensé que je devais passer par ajouter une nouvelle source de donnée de type objet correspondant a catchlist, puis lier via form1[design] le datasource de la datagridview a cette nouvelle datasource. Mais le probleme est que je ne vois pas ma liste dans les choix que propose ajouter un datasource de type objet ...

Arf, suis pas sur d etre clair ...

Merci

[olsimare]

Bonjour.

Pourquoi ne le fais-tu pas directement par code :

Code :

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

1
2
3
4
5
6
7
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim catch1 As New catchment
...
        catchlist.Add(catch2)
        tondatagridview.datasource = catchlist
    End Sub

Cdt.

[Slumpy]

Salut et merci de m aider

Effectivement c une des premieres choses que j ai essayé de faire, mais comme tu peux le voir la : http://img259.imageshack.us/img259/4072/screenqm7.jpg

Bah ca marche po. Quand j appuie sur le bouton j ai tjs un datagridview vide.

Merci

Slumpy

[robri]

avant de lier des données a ton dgv,

lui as tu créé des colonnes?

--> via le mode design, clic sur la balise active du dgv puis ajouter/modifier des colonnes

parce que sur ton screen, il est completement vide, sans entetes de colonnes...

[Slumpy]

Salut,

non sur le screen j en avais pas mis. Je pensais que ca se créerait automatiquement lors de l execution. Mais meme si je crée c colonnes. Elles restent vide.

Suis perdu la ...

Slumpy

[robri]

est ce que tu as rempli la propriété "DataPropertyName" de chaque colonne en lui mettant de le nom du champ de ta source de données ?

EDIT: dans ton cas il faudrait y mettre "c1", "c2", et "c3", les propriétés de ton objet catchment.

[Slumpy]

Salut robri,

merci de m aider

Si je comprend bien, tu me dis de faire ca :

Mais visiblement ca ne marche tjs po :



Merci

Slumpy

[SaumonAgile]

Tu peux utiliser un BindingSource. Tu ajoutes un bindingsource sur ton formulaire. Tu affectes le datasource du bindingsource à un objet de type catchment (tu peux le faire par l'assistant ajout de source de données).

Ensuite, tu utilises le bindingsource comme datasource du datagridview (toujours en mode design). Il devrait alors générer les colonnes du datagridview.

Dans le code maintenant, au lieu de modifier le datasource du gridview, tu modifies celui du bindingsource.

Exemple :

Code :

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

monBindingSource.DataSource = maListeDeCatchment

[Slumpy]

Salut,

Si j ai bien compris, tu me dis de creer le bindingsource et d y ajouter comme datasource comme ca : http://www.tes-images.com/view.php?i...dingsource.JPG

De selectionner le datasource du datagridview comme ca : http://www.tes-images.com/view.php?i...cedatagrid.JPG

Et de changer ma Form par :

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
Public Class Form1
    Public catchlist As New List(Of catchment)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim catch1 As New catchment
        Dim catch2 As New catchment
        catch1.c1 = 11
        catch1.c2 = 12
        catch1.c3 = 13
        catchlist.Add(catch1)
        catch2.c1 = 21
        catch2.c2 = 22
        catch2.c3 = 23
        catchlist.Add(catch2)
 
        BindingSource1.DataSource = catchlist
 
    End Sub
End Class

Si je fais tourner ca, j ai ca : http://www.tes-images.com/view.php?i...77_result2.JPG

Dinc ca marche tjs po

Par contre, on dirait qu il reconnait que j ai 2 catchment dans ma list.

Merci.

Slumpy

EDIT : Je me demande si le probleme ne vient pas du fait que quand j ajoute ma source de donnée par l assistant, je choisis Catchment. Ca ne devrait pas plutot etre catchlist ?
Si c le cas, le pb est que je ne le vois pas dans les choix : http://www.tes-images.com/view.php?i...datasource.JPG

[Slumpy]

Salut,

J ai finalement trouvé comment faire.

Je ne sais pas trop pourquoi, mais si je defini c1, c2 et c3 comme private et que je definit trois propriety pour acceder a c varibles ... ben ca marche :p

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
Public Class Catchment
    Private m_c1 As Integer
    Private m_c2 As Double
    Private m_c3 As Double
 
 
    Sub New()
    End Sub
    Public Property c1() As Integer
        'set and get pipe diameter (in mm)
        Get
            Return m_c1
        End Get
        Set(ByVal value As Integer)
            m_c1 = value
        End Set
    End Property
    Public Property c2() As Double
        'set and get pipe diameter (in mm)
        Get
            Return m_c2
        End Get
        Set(ByVal value As Double)
            m_c2 = value
        End Set
    End Property
    Public Property c3() As Double
        'set and get pipe diameter (in mm)
        Get
            Return m_c3
        End Get
        Set(ByVal value As Double)
            m_c3 = value
        End Set
    End Property
End Class