vider textbox databindings
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:
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 |