Bonsoir,

J'ai deux forms avec un datagridview sur chacune des forms et je viens de remarqué que si j'allimente un datagridview l'autre se vide et vise versa !!!!

Je ne vois pas ou est l'erreur j'utilise deux dataset de noms différents.

Premier datagridview

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
 
  Private Sub cb_nom_client_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_nom_client.TextChanged, cb_nom_client.Click
        Dim str_rech As String = cb_nom_client.Text
        Dim dta As MySqlDataAdapter
        Dim dts_client_rdv As DataSet
 
        dtgv_nom_client_rdv.Visible = False
        lbl_nouv_client.Visible = False
 
        dtgv_nom_client_rdv.DataSource = Nothing
        str_table_rdv = "client_rdv"
 
        If str_rech <> vbNullString Then '//Si la recherche n est pas vide
            str_requete = "SELECT ID_CLIENT,NOM_CLIENT AS NOM,PRENOM_CLIENT AS PRENOM,ADRESSE FROM vue_renseignement_client WHERE NOM_CLIENT LIKE " & "'" & str_rech & "%'"
 
            dta = New MySqlDataAdapter(str_requete, conn)
 
            '//Dataset cache en memoire de donnée
            dts_client_rdv = db.FONC_REQ_DTS_MYSQL(str_requete)
 
            dta.Fill(dts_client_rdv, str_table_rdv)
            dt = dts_client_rdv.Tables(str_table_rdv) '//DataTable
            conn.Close()
            '//Cache la colonne de l'id du client(pour l'ajout tbl_coiffeur_tranche)
            dts_client_rdv.Tables(str_table_rdv).Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
            If BindingContext(dts_client_rdv, str_table_rdv).Count > 0 Then
                dtgv_nom_client_rdv.Visible = True
                lbl_nouv_client.Visible = False
 
            Else
                dtgv_nom_client_rdv.Visible = False
                lbl_nouv_client.Visible = True
            End If
 
            conn.Close() '// On ferme la connexion le plus tôt possible
 
            dtgv_nom_client_rdv.DataSource = dts_client_rdv
            dtgv_nom_client_rdv.DataMember = str_table_rdv
 
        End If
 
    End Sub
Deuxième datagridview
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
 
 Private Sub cb_nom_client_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cb_nom_client.TextChanged, cb_nom_client.Click
        Dim str_rech As String = cb_nom_client.Text
        Dim dta As MySqlDataAdapter
 
        dtgv_nom_client_rdv.Visible = False
        lbl_nouv_client.Visible = False
 
        dtgv_nom_client_rdv.DataSource = Nothing
        str_table_rdv = "client_rdv"
 
        If str_rech <> vbNullString Then '//Si la recherche n est pas vide
            str_requete = "SELECT ID_CLIENT,NOM_CLIENT AS NOM,PRENOM_CLIENT AS PRENOM,ADRESSE FROM vue_renseignement_client WHERE NOM_CLIENT LIKE " & "'" & str_rech & "%'"
 
            dta = New MySqlDataAdapter(str_requete, conn)
            dts.Clear()
            '//Dataset cache en memoire de donnée
            dts = db.FONC_REQ_DTS_MYSQL(str_requete)
 
            dta.Fill(dts, str_table_rdv)
            dt = dts.Tables(str_table_rdv) '//DataTable
            conn.Close()
            '//Cache la colonne de l'id du client(pour l'ajout tbl_coiffeur_tranche)
            dts.Tables(str_table_rdv).Columns("ID_CLIENT").ColumnMapping = MappingType.Hidden
 
            If BindingContext(dts, str_table_rdv).Count > 0 Then
                dtgv_nom_client_rdv.Visible = True
                lbl_nouv_client.Visible = False
 
            Else
                dtgv_nom_client_rdv.Visible = False
                lbl_nouv_client.Visible = True
            End If
 
            conn.Close() '// On ferme la connexion le plus tôt possible
 
            dtgv_nom_client_rdv.DataSource = dts
            dtgv_nom_client_rdv.DataMember = str_table_rdv
 
        End If
 
    End Sub
Merci d'avance.