Discussion :

[philguio]

Bonjour
voila je fait une recherche dans un data grid, par le Nom. Mais lorsque je tape le début d'un Nom commençant par une lettre, et que je sais qu' il n'y a aucun nom dans la table commençant par cette lettre. Je voudrais un message qui me dise qu'il ny a pas de nom commençant par cette lettre.

Mon code actuel
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

le message doit etre du type:
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MessageBox.Show("Le Nom que vous recherchez n'existe pas!", "Attention ...", MessageBoxButtons.OK, MessageBoxIcon.Error)

Bon merci par avance
@+
Phil

[s.n.a.f.u]

Il y a une propriété readonly "Count" ou "NbRows" pour la vue, je ne sais plus le nom exact.
Tu peux tester lorsqu'elle est égale à 0.

[philguio]

OK merci, je vais voir ça !
@+
Merci
Phil

[philguio]

Bonjour
c'est bon j'ai trouvé, j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
on error goto gestionErreurs
gestionErreurs:
select case err.number
case 9
MessageBox.show(.....................
end select

merci à tous
@+
Phil