Liaison datagridview et datatable

Version imprimable

je souhaite lier une datagridview (quant_dtg) à une datatable (mat_tot) appartenant à un dataset(datas).

Je charge le tout au démarrage de la façon suivante:
Code:

1 2 3 4 5 6 7 Private Sub Quantitatif_Placo_form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Quant_dtg.DataSource = datas Quant_dtg.DataMember = "mat_tot" end sub
Au démarrage, la datatable est vide. Mais lorsque je la remplis via une autre procédure, les lignes de la datagridview sont crées mais ne se remplisse pas.

Pourquoi?

par avance merci pour vos commentaires et solutions.

07/08/2015, 10h05
mactwist69
Une solution pourri c'est de faire
Code:

1 2 Quant_dtg.DataSource = nothing Quant_dtg.DataSource = datas
Quand tu ajoutes des lignes dans ta datatable.

Sinon tu peux essayer de mettre un DataBind au milieu :
Code:

1 2 Quant_dtg.datasource = me.DataBind1 me.DataBind1.Datasource = datatable
Et de tenter des
Code:

1 2 dDGV.Refresh Databind1.refresh
07/08/2015, 10h29
tom_plaquiste

Merci beaucoup pour la réponse mais ça ne marche.

les lignes sont bien créées mais toujours vides.

Une autre suggestion???
07/08/2015, 10h52
mactwist69

Laquelle ne marche pas ?
As tu essayer de Binder ?

et est ce que ton DGV est contenu dans un control ? (panel, TabControl ...)
07/08/2015, 10h52
Kropernic

Sans plus de code, ça va être dur de dire quelque chose de plus.

Ce que mactwist a proposé fonctionne. Donc...
07/08/2015, 11h02
tom_plaquiste

Les deux solutions de ne fontionnent pas.

J'ai également essayer avec un databindingsource.

Sinon OUI ,la datagridview est contenu dans une tab! Cela change quelque chose?
07/08/2015, 11h04
Kropernic

Citation:

Envoyé par tom_plaquiste

Les deux solutions de ne fontionnent pas.

J'ai également essayer avec un databindingsource.

Sinon OUI ,la datagridview est contenu dans une tab! Cela change quelque chose?

Voir mon message précédent...
07/08/2015, 11h06
mactwist69

Oui, Il y a toujours des problèmes d'affichage de DGV avec les tabcontrols...

Tu peux tenter un TabPage.refresh, ou je crois sinon, juste après le Bind, il faut faire une sélection manuelle du TabPage en question, pour forcer le rafraîchissement du TabPAge :

TabControl.SelectTabPage (nom tabpage)

Je vais essayer d'apporter plus de précisions:

J'ai une datagridview (quant_dtg) qui se situe dans un tabcontrol(quantitatif_tab).

Au démarrage de l'application , je demande d'attribuer une datatable (mat_tot) ,appartenant à une datasource (datas) à ma datagridview. Pour cela, j'utilise une databinding source (bs1)

ce qui donne en code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Quantitatif_Placo_form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Création table Matériel total table = datas.Tables.Add("mat_tot") table.Columns.Add("Type", Type.GetType("System.String")) table.Columns.Add("Référence", Type.GetType("System.String")) table.Columns.Add("Dimension", Type.GetType("System.String")) table.Columns.Add("Nombre", Type.GetType("System.String")) Quant_dtg.DataSource = Me.bs1 Me.bs1.DataSource = datas.Tables("mat_tot")
Dans la suite de mon application, j'ai une procédure (add_row_matos) qui ajoute ou supprime des lignes dans ma datatable (mat_tot).

J'ai vérifié que ma datatable contenait bien des données une fois la procédure (add_row_matos) exécutée.

La dessus, la datagridview a créé le nombre de lignes correspondantes à l'ajout dans la datatable mais les cellules de ma datagridview ne contiennent aucune valeur.

Voila

Si quelqu'un a une idée je suis preneur.

Si vous souhaitez davantage de code, je peux vous en donner mais il faudrait spécifier ce que vous aimeriez car le code complet est très long

Merci à tous

07/08/2015, 11h46
mactwist69
Tu peux nous confirmer que juste après l'ajout de ligne dans la datatable, si tu fais
Code:

1 2 binding.datasource = Nothing binding.datasource = datatable
Ca change rien ?

Et sinon, une fois que le DGV créer les lignes, si tu changes de Tab et reviens, ça ne change rien ?

Faut jouer un peu, tourner autour, voir ce qui bloque....
tu peux te mettre aussi un bouton sur ta form, qui fera des refresh sur les binding/DGV/tabpage/tabcontrol/form, voir si l'un de ceux la fonctionne.

J'ai tout essayé mais rien n'y fait (cf code)
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Me.Refresh() bs1.DataSource = Nothing bs1.DataSource = datas.Tables("mat_tot") Quantitatif_tab.Refresh() Projet.Refresh() End Sub
Je ne comprends pas.
D'autres idées??

Je peux toujours créer une routine qui remplisse la datagriview en "manuelle" à partir de ma datatable. Mais si je peux éviter d'alourdir le code pour rien ça m'arrange.

07/08/2015, 12h38
mactwist69

Tu as le droit de chercher des idées aussi...

PAr exemple, sur le forum VB.NET, sur cette même page, il y a pas une semaine :

http://www.developpez.net/forums/d15...ge-tabcontrol/

Par hasard j'ai testé le chargement manuel de la datagridview avec le code suivant:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub charge_table(dgv As DataGridView, table As DataTable) Dim i, j, row_table, col_table As Integer row_table = table.Rows.Count - 1 col_table = table.Columns.Count - 1 For i = 0 To row_table For j = 0 To col_table dgv(j, i).Value = table(i)(j) Next j Next i End Sub
J'ai inséré cette procédure de façon dynamique dans mon code après que j'ai créé mes lignes dans ma table. Toujours rien !!! ca ne marche toujours pas!!!

Mais , lorsque je crée un bouton, que j'assigne cette fonction à ce bouton et que je clique su ce bouton, comme par magie, ça marche !!!!

Est ce que cela vous éclaire? et auriez vous des idées d'exploration??

Pour ma part je continue de chercher....

07/08/2015, 14h17
mactwist69

C'est une histoire de Paint....

As tu regardez le lien que je t'ai donné ?
07/08/2015, 14h28
tom_plaquiste

Oui j'ai regardé le lien mais ca ne marche pas non plus (suspendlayout et resumelayout)

Une histoire de paint ????? je suis en train de chercher sur msdn mais je ne comprends pas tout
07/08/2015, 14h51
mactwist69

Tu as mal lu le post.... LE suspendLayout, c'était juste pour ne pas montrer que le programme change d'onglet, pour faire afficher les lignes du DGV...
Relis le post.

Car c'est un problème des événements "Paint" de Visual Studio, qui a du mal à gérer qui est peint quand, surtout dans les tabcontrols.
Il en oubli des bous.
08/08/2015, 20h11
tom_plaquiste

Avez vous d'autres idées?

Je ne comprends pas pourquoi cela ne marche pas

bonjour

Quand on utilise un BindingSource, il faut l'accord du "cerbere" BindingSource (qui veuille au grain sur la mise à jour des controls "pieds & poings lies" c.à.d bindes à lui )....
Et on utilise sa prop List qui est une "Vue Lie" correspondand à la datable lie actuellement...

code exemple ou en plus j'ai ajoute un 2eme dgv lie directement à la datatable (espion):

code .vb

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Public Class Form2
    Private myDataSet As New DataSet
    Private bds As New BindingSource
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        myDataSet = GetDS()
        bds.DataSource = myDataSet
        bds.DataMember = myDataSet.Tables(0).TableName
        DataGridView1.DataSource = bds
        '-------------------
        dgvPrevDataTable.DataSource = myDataSet.Tables(0)
 
    End Sub
    Private Function GetDS() As DataSet
        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dc As DataColumn
 
        dc = New DataColumn("Nom", GetType(String))
        dt.Columns.Add(dc)
        dc = New DataColumn("Prenom", GetType(String))
        dt.Columns.Add(dc)
        dc = New DataColumn("Age", GetType(Integer))
        dt.Columns.Add(dc)
 
        Dim dr As DataRow = dt.NewRow
 
        For i As Integer = 1 To 10
            dr(0) = "itemNom" + i.ToString
            dr(1) = "itemPrenom" + i.ToString
            dr(2) = i * 11
            dt.Rows.Add(dr)
            dr = dt.NewRow
        Next
        ds.Tables.Add(dt)
        Return ds
    End Function
    Private Sub btnAddDataRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDataRow.Click
 
        Dim view As DataView = bds.List
 
        Dim dv As DataRowView = view.AddNew
        dv(0) = "newNom"
        dv(1) = "newPrenom"
        dv(2) = 25
 
        lbl1.Text = view.Count.ToString
    End Sub
 
    Private Sub DataGridView1_RowsAdded(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
        lbl2.Text = e.RowCount.ToString
    End Sub
 
 
End Class

bon code...