Bonjour à tous,

j'ai crée une 2ème datagridview nomé table_commande qui se trouve dans la même fenetre (form1),
le tableau de cette datagridview se trouve en bas et s'intitule: "pièces à commander",en bas de l'aplication quand on la lance, voir la copie d'écran en attaché au message,
quand j'appuye sur le bouton "Sauver" j'ai une syntaxe erreur quand je lance
l'aplication,l'erreur est:

Erreur 1 Une valeur de type 'projet_inventaire.Database_commandeDataSet1' ne peut pas être convertie en 'projet_inventaire.database_inventaireDataSet1'. C:\Users\compaq\Desktop\projet_inventaire1\projet_inventaire\projet_inventaire\Form1.vb 116 42 projet_inventaire

ci-joint en attaché des screen copy.

P.S.
La 1ère datagridview table_inventaire (1er tableau en haut intitulé "stock de pièces dans la camionette" je n'ai pas ce pbm car le bouton "Sauver" marche trés bien, car le tableau se sauvegarde bien (quand je quite l'aplication et que je relance les données sont bien enregistrées)


le code est :

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
Public Class Form1
 
    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
        'sous prog de creation de la base de données au tout début du projet
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table 'Database_commandeDataSet1.Table_commande'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_commandeTableAdapter.Fill(Me.Database_commandeDataSet1.Table_commande)
        'TODO : cette ligne de code charge les données dans la table 'Database_inventaireDataSet1.Table_inventair'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_inventairTableAdapter.Fill(Me.Database_inventaireDataSet1.Table_inventair)
 
    End Sub
 
    'déclaration de la table_inventaire 
    Private Sub Table_inventairDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_inventairDataGridView.CellContentClick
 
    End Sub
 
    'bouton AddSAP (ajout de réfences pièces détachée dans la table_inventaire)
    Private Sub Button1AddSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1AddSAP.Click
        Me.Table_inventairBindingSource.AddNew()
    End Sub
 
    'bouton RemoveSAP (suprimer une référence de pièce détaché dans la table_inventair)
    Private Sub Button2RemoveSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2RemoveSAP.Click
        Me.Table_inventairBindingSource.RemoveCurrent()
    End Sub
 
    'bouton Save (sauvegade des modification apportées à la table_inventair)
    Private Sub Button3Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Save.Click
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
    End Sub
 
 
    'onglet recherche suivant SAP (référence de pièce détachée de la table_inventair)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP(Me.Database_inventaireDataSet1.Table_inventair, TextBox1.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 
    'bouton recherche suivant Description (Description de pièce de la table_cinventaire)
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Me.Table_inventairTableAdapter.FillByDescription(Me.Database_inventaireDataSet1.Table_inventair, TextBox2.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
 
 
 
    'bouton recherche suivant Box (Boite de rangement des pièce de la table_inventaire)
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Me.Table_inventairTableAdapter.FillByNumBox(Me.Database_inventaireDataSet1.Table_inventair, TextBox3.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton "afficher tout" pour aficher toutes les pièces de la table_inventaire
    Private Sub FillBySAP2ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBySAP2ToolStripButton.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP2(Me.Database_inventaireDataSet1.Table_inventair, SAPToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton pour augmenter la quantité d'une pièce dans la table_inventaire
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity + 1
    End Sub
 
    'bouton pour diminuer la quantité d'une pièce dans la table_inventaire
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity - 1
    End Sub
 
 
 
    Private Sub Table_commandeDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_commandeDataGridView.CellContentClick
 
    End Sub
    'déclaration de la table_commande

D'avance merci.