bonjour,
j'arrive pas a vider le databindings des textbox lorsque la declaration du dataset est mis hors le private sub
par contre si je mis la declration du dataset dedans ca marche
mais je doit pas la mettre dedans parce que j'aurai besoin de manipuler les donnée du data set dans des autres évènement
Code vb : 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 Public Class Form1 Dim ds As New DataSet Dim dpt As SqlDataAdapter Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dpt = New SqlDataAdapter("SELECT dbo.etat_engagement.montant, dbo.etat_engagement.objet_depense, FROM dbo.nature_engagement INNER JOIN dbo.etat_engagement ON dbo.nature_engagement.id_nature_engagement = dbo.etat_engagement.id_nature_engagement WHERE (id1= '" & Label1.Text & "')", conn) dpt.Fill(ds, "table2") Me.BindingSource1.DataSource = ds.Tables("table2") Me.BindingNavigator1.BindingSource = BindingSource1 Me.montant_engager.DataBindings.Clear() Me.objet_depense.DataBindings.Clear() Me.montant_engager.DataBindings.Add("text",BindingSource1,"montant") Me.objet_depense.DataBindings.Add("text", BindingSource1, "objet_depense") End Sub End Class
Partager