Dim dr3 As SqlDataReader dr3 = Personne.SelectPersId() If dr3.Read Then Dim PersId As Integer = dr3.GetValue(0) Me.A2BindingSource.Filter = "Client =" & PersId dr3.Close() End If
Nothing
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)