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
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
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
Merci d'avance.
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
Partager