Problème avec le datagrid
cerall
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention -
Kalissi Messages postés 218 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais rechercher des informations contenus dans une jointure de table "form(direction1)" en utilisant un datagridview. Celui ci va être modifié au fur et a mesure que l'utilisateur rempli les textboxs de recherche. J'avais essayé ce code :
DataGridView1.Refresh()
DataGridView1.DataSource = Form2.DataSet1.Tables("form(direction1)").Select("exp like '%" & TextBox1.Text & "dest like '%" & TextBox2.Text & "typ like '%" & TextBox3.Text & "code like '%" & TextBox5.Text & "%'")
mais le datagridview n'affiche rien. Quelqu'un pourrait il bien m'aider svp
merci a tous
je voudrais rechercher des informations contenus dans une jointure de table "form(direction1)" en utilisant un datagridview. Celui ci va être modifié au fur et a mesure que l'utilisateur rempli les textboxs de recherche. J'avais essayé ce code :
DataGridView1.Refresh()
DataGridView1.DataSource = Form2.DataSet1.Tables("form(direction1)").Select("exp like '%" & TextBox1.Text & "dest like '%" & TextBox2.Text & "typ like '%" & TextBox3.Text & "code like '%" & TextBox5.Text & "%'")
mais le datagridview n'affiche rien. Quelqu'un pourrait il bien m'aider svp
merci a tous
1 réponse
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