1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
|
Private Sub Bt_recherche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrecherche.Click
Dim recherche As String
recherche = InputBox("Veuillez saisir le nom ou une partie du nom", "Rechercher un contact")
If Not recherche = String.Empty Then
'definition de notre table
Dim Matable As DataTable
Matable = dts.Tables("T_Joueur")
'cree un objet dataview pour filtrer les enregistrements
Dim filtre As New DataView(Matable)
'filtre.RowFilter = "nom='" & recherche & "'"
filtre.RowFilter = "Nom like'" & recherche & "*'"
'affiche les valeurs
txtref.Text = filtre.Item(0)(0)
txtnom.Text = filtre.Item(0)(1)
txtprenom.Text = filtre.Item(0)(2)
txtlicence.Text = filtre.Item(0)(3)
chkAvant.Checked = filtre.Item(0)(4)
chkArrière.Checked = filtre.Item(0)(5)
Pimg.Tag = filtre.Item(0)(6)
'chargement de l'image
Dim img As Image
Dim chmImg As String = Pimg.Tag
If chmImg <> "" Then
img = New Bitmap(chmImg)
Pimg.Image = CType(img, Image)
Else
img = New Bitmap("img.jpg")
Pimg.Image = CType(img, Image)
End If
Dim i As Integer
For i = 0 To Matable.Rows.Count - 1
If DataGrid1.Item(i, 0) = filtre.Item(0)(0) Then
DataGrid1.UnSelect(DataGrid1.CurrentRowIndex)
DataGrid1.Select(i)
DataGrid1.CurrentRowIndex = i
End If
Next
End If
End Sub |
Partager