Discussion :

[lelvivien]

j'utilise visual basic express 2010...une base de donnée access
j ai glisser une table sur un form..donc j'utilise le buinding navigator pour ajouter suprimer et enregistrer les donnée dans la table access.
les combobox ont des data sources.
quand j ouvre le form pour la mpremiere fois les combobox sont à blanc..je selectionne les donnée..j'enregistre tout se fait avec succes..mais pour le deuxieme ajout je rencontre ces deux probleme :

1. les combobox ne remettent pas leur items à blanc..ils affichent le dernier item selectionnée.

2.aprés que j'appuis sur ajouter un nouvel enregistrement et j'enregistre un nouveau enregistrement avec les meme données deja selectionnée dans le premier enregistrement..ils ne s'enregistrent pad>> les cellulles du data grid view n'affiches pas le resultat de l'enregistrement.
les données sont enregistrées et affichées seulement si je change les iteams deja selectionner et le reselectionner à nouveau par exemple.

donc pour moi il suffit de remettre les combobox à blanc à chaque nouvel enregistrement...comment le faire sans ajouter des nouvelles lignes vides dans les tables data sources.

Merci.

[asmduty]

c'est plutôt ton code qui cloche ...

peut-on le voir ?

[lelvivien]

d'accord je vous donne le code... mais on y trouvera pas le code du BindingNavigator puisque Visuel Basic le génère automatiquement apres avoir glisser la table sur le form..je vois que c'est un élément déjà compilé

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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Public Class Form11
 
    Private Sub Gradu_ExamBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gradu_ExamBindingNavigatorSaveItem.Click
        If MsgBox("المرجو تأكيد التسجيل ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Me.Validate()
            Me.Gradu_ExamBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DchichiDataSet)
        End If
 
    End Sub
 
    Private Sub Form11_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 'DchichiDataSet.Echellon_Adm'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Echellon_AdmTableAdapter.Fill(Me.DchichiDataSet.Echellon_Adm)
        'TODO: cette ligne de code charge les données dans la table 'DchichiDataSet.Echellon_ass_tech_adm'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Echellon_ass_tech_admTableAdapter.Fill(Me.DchichiDataSet.Echellon_ass_tech_adm)
        'TODO: cette ligne de code charge les données dans la table 'DchichiDataSet.Echellon_ing'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Echellon_ingTableAdapter.Fill(Me.DchichiDataSet.Echellon_ing)
        'TODO: cette ligne de code charge les données dans la table 'DchichiDataSet.Echellon_tech_red'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Echellon_tech_redTableAdapter.Fill(Me.DchichiDataSet.Echellon_tech_red)
        'TODO: cette ligne de code charge les données dans la table 'DchichiDataSet.Grade1'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Grade1TableAdapter.Fill(Me.DchichiDataSet.Grade1)
        'TODO: cette ligne de code charge les données dans la table 'DchichiDataSet.Gradu_Exam'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Gradu_ExamTableAdapter.Fill(Me.DchichiDataSet.Gradu_Exam)
 
    End Sub
 
    Private Sub FillByCIN_1ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillByCIN_1ToolStripButton.Click
        Try
            Me.Gradu_ExamTableAdapter.FillByCIN_1(Me.DchichiDataSet.Gradu_Exam, CIN_1ToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
 
    Private Sub Grade_5ComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Grade_5ComboBox.SelectedIndexChanged
        Dim G As Integer
        G = Grade_5ComboBox.SelectedIndex
 
        If G = 0 Or G = 7 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonasstechadmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_at_3"
        ElseIf G = 1 Or G = 6 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonasstechadmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_at_4"
 
 
        ElseIf G = 8 Or G = 23 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonasstechadmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_at_2"
 
        ElseIf G = 9 Or G = 22 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonasstechadmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_at_1"
 
        ElseIf G = 2 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchelloningBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_ing_eta"
 
        ElseIf G = 3 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchelloningBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_ing_Pri"
 
        ElseIf G = 4 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchelloningBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_Ing_chef"
 
        ElseIf G = 5 Then
            Echll_3ComboBox.Enabled = False
            Echll_3ComboBox.DisplayMember = Nothing
 
        ElseIf G = 10 Or G = 17 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellontechredBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_4"
 
        ElseIf G = 11 Or G = 16 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellontechredBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_3e"
        ElseIf G = 12 Or G = 15 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellontechredBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_2"
        ElseIf G = 13 Or G = 14 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellontechredBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_1"
        ElseIf G = 18 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonAdmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_adm_2"
 
        ElseIf G = 19 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonAdmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_3ee"
        ElseIf G = 20 Then
            Echll_3ComboBox.Enabled = True
            Echll_3ComboBox.DataSource = EchellonAdmBindingSource
            Echll_3ComboBox.DisplayMember = "Echellon_ad_1e"
        ElseIf G = 21 Then
            Echll_3ComboBox.Enabled = False
        End If
 
    End Sub
 
End Class

[hunteshiva]

Bonjour,

quand tu quitte le Form_1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
' Ne fait pas
Me.Hide
'Mais
Me.Dispose