Problème datagridview et menu strip

yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention - 12 août 2018 à 17:19 - Dernière réponse : yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention
- 15 août 2018 à 16:25
Bonjour,
j'ai :
- un form principale doté par un menu strip
- deux form doté d'un datagridview d'une même base de donner mais deux table différente
quand j’exécute chaque forms ça marche très bien, mais quand je l’exécute a partir du form principale (menu strip) les colonnes de la dernier datagridv s’intègre au l'autre datagridv de l'autre form...!!!!!!
y'a t'il des suggestion pour remédier ça...????????
svp une réponse simple et facile svp svp
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Whismeril 11962 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 15 août 2018 Dernière intervention - 13 août 2018 à 00:51
2
Merci
Ma boule de cristal me dit qu'il manque un ; à la ligne 32.

Ha tu as besoin d'une réponse sérieuse?
Ben c'est pas possible, par ce que les boules de cristal ça n'existe pas et sans voir ton code, pas moyen d'émettre des hypothèses plausibles.

Pour poster ton code, voir cette procédure.
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

Merci Whismeril 2

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention - 13 août 2018 à 12:10
ok monsieur whismeril
MODULE 1
Public Sub charger_grid_view(ByVal maform As String, ByVal req As String, ByVal gv As DataGridView)
        Try
            dt.Clear()
            cmd.CommandText = req
            dr = cmd.ExecuteReader
            dt.Load(dr)
            With maform
                gv.DataSource = dt
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        dr.Close()
    End Sub
'-------------------------------------------------------
Public Sub connection()
        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        Try
            con.Open()
            If con.State <> ConnectionState.Open Then
                MsgBox("Erreur de connection", 0 + 48, "Erreur")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub


FORM ARTICLE
 Private Sub Articles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connection()
        maform = Me.Name
        reqTot = "select article, um, idarticle from tbl_article"
        '-------------------------------
        charger_grid_view(maform, reqTot, TblArticle)
        TblArticle.Columns(0).Width = 180
        TblArticle.Columns(1).Width = 100
        TblArticle.Columns(2).Visible = False
        TblArticle.Columns(0).HeaderText = "ARTICLES"
        TblArticle.Columns(1).HeaderText = "UM"
        With TblArticle.ColumnHeadersDefaultCellStyle
            .Alignment = DataGridViewContentAlignment.MiddleCenter
            .BackColor = Color.CornflowerBlue
            .ForeColor = Color.BlueViolet
            .Font = New Font(.Font.FontFamily, .Font.Size, _
           .Font.Style Or FontStyle.Bold, GraphicsUnit.Point)
        End With
        '-------------------------------
    End Sub

MÊME PROCÉDURE POUR LES AUTRES FORMS
MENU STRIP
Private Sub ArticlesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArticlesToolStripMenuItem.Click
        Dim Articles As New Articles
        Articles.MdiParent = Me
        Articles.StartPosition = FormStartPosition.CenterScreen
        Articles.Show()
    End Sub

MERCI POUR VOTRE ATTENTION
yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention - 15 août 2018 à 10:48
aucune suite...??
Whismeril 11962 Messages postés mardi 11 mars 2003Date d'inscriptionContributeurStatut 15 août 2018 Dernière intervention - 15 août 2018 à 12:51
Je suis en congé, quand je peux répondre « de tête », je le fais.
Là c’est pas le cas.
Il faut attendre quelqu’un d’autre, ou que je rentre chez moi
yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention - 15 août 2018 à 16:25
oui bien sur bon congé amuse toi bien
Commenter la réponse de Whismeril
yassin246 5 Messages postés dimanche 12 août 2018Date d'inscription 15 août 2018 Dernière intervention - 13 août 2018 à 12:12
0
Merci
MODULE 1
Public Sub charger_grid_view(ByVal maform As String, ByVal req As String, ByVal gv As DataGridView)
        Try
            dt.Clear()
            cmd.CommandText = req
            dr = cmd.ExecuteReader
            dt.Load(dr)
            With maform
                gv.DataSource = dt
            End With
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        dr.Close()
    End Sub
'-------------------------------------------------------
Public Sub connection()
        cmd.Connection = con
        cmd.CommandType = CommandType.Text
        Try
            con.Open()
            If con.State <> ConnectionState.Open Then
                MsgBox("Erreur de connection", 0 + 48, "Erreur")
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub


FORM ARTICLE
 Private Sub Articles_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        connection()
        maform = Me.Name
        reqTot = "select article, um, idarticle from tbl_article"
        '-------------------------------
        charger_grid_view(maform, reqTot, TblArticle)
        TblArticle.Columns(0).Width = 180
        TblArticle.Columns(1).Width = 100
        TblArticle.Columns(2).Visible = False
        TblArticle.Columns(0).HeaderText = "ARTICLES"
        TblArticle.Columns(1).HeaderText = "UM"
        With TblArticle.ColumnHeadersDefaultCellStyle
            .Alignment = DataGridViewContentAlignment.MiddleCenter
            .BackColor = Color.CornflowerBlue
            .ForeColor = Color.BlueViolet
            .Font = New Font(.Font.FontFamily, .Font.Size, _
           .Font.Style Or FontStyle.Bold, GraphicsUnit.Point)
        End With
        '-------------------------------
    End Sub

MÊME PROCÉDURE POUR LES AUTRES FORMS
MENU STRIP
Private Sub ArticlesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ArticlesToolStripMenuItem.Click
        Dim Articles As New Articles
        Articles.MdiParent = Me
        Articles.StartPosition = FormStartPosition.CenterScreen
        Articles.Show()
    End Sub
Commenter la réponse de yassin246

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.