Problème avec le datagrid
Fermé
cerall
Messages postés
4
Date d'inscription
vendredi 2 août 2013
Statut
Membre
Dernière intervention
5 août 2013
-
5 août 2013 à 14:44
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 16 sept. 2013 à 19:29
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 16 sept. 2013 à 19:29
1 réponse
Kalissi
Messages postés
218
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
20
16 sept. 2013 à 19:29
16 sept. 2013 à 19:29
Bonjour Exemple :
K
Private Sub InsererDataTable()
If (Me.DGV_Solutions.DataSource IsNot Nothing) Then
Me.DGV_Solutions.DataSource = Nothing
Me.DGV_Solutions.Rows.Clear()
Me.DGV_Solutions.Columns.Clear()
End If
Dim dtContenant As DataTable = RecupereInfo()
Dim bsListe As New BindingSource
bsListe.DataSource = dtContenant
Me.DGV_Solutions.Rows.Clear()
Me.DGV_Solutions.Columns.Clear()
Me.DGV_Solutions.DataSource = bsListe.DataSource
End Sub
Private Function RecupereInfo() As DataTable
Dim dtContenant As New DataTable
dtContenant = Form2.DataSet1.Tables("form(direction1)").Select( _
"exp like '%" & TextBox1.Text & _
"dest like '%" & TextBox2.Text & _
"typ like '%" & TextBox3.Text & _
"code like '%" & TextBox5.Text & "%'")
Return dtContenant
End Function
K