Discussion :

[NemesisProg]

Salut tout le monde,

J'ai un petit problème que je n'arrive pas à régler. J'ai un Datagridview avec plusieurs colonnes et rangés. Je fais une recherche avec un textbox avec le "numero item" pour retrouvé afficher la rangé au complet. Voici mon 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
 
Dim rangertrouver As Boolean = False
        Try
            For Each row As DataGridViewRow In data_item.Rows
                If (row.Cells.Item("NumeroItem").Value.ToString = txt_recherche.Text) Then
                    rangertrouver = True
                End If
 
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        If rangertrouver Then
            DonnéeTable.DefaultView.RowFilter = "NumeroItem LIKE '*" & txt_recherche.Text & "*'"
        End If

Ma comparaison ce fait comme il faut, lorsqu'il arrive à la bonne valeur, il rentre dans ma condition. Par-contre, il rentre dans mon catch et me donne comme erreur : La référence d'objet n'est pas définie à une instance d'un objet. Je ne comprend pas trop pourquoi?

Si il y a quelqu'un qui pourrait m'aider ça serait vraiment sympa!

[shayw]

Bonjour
Quand tu lances ton prog et regardes ton datagridview tu verras qu'il contient une rangée en bas qui est vide.
Ta loop scanne toutes les rangées et essaie de scanner la rangée vide
Soit tu ajoutes un exit for

Try

Code :

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

1
2
3
4
5
6
7
8
9
10
For Each row As DataGridViewRow In data_item.Rows
                If (row.Cells.Item("NumeroItem").Value.ToString = txt_recherche.Text) Then
                    rangertrouver = True
                    exit for
                End If
 
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

l'inconvenient est s'il ne trouve pas l'item exception sera relevée

Soit itère différement

Code :

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

1
2
3
4
5
6
7
8
9
10
 Try
            For rows as integer = 0 To  data_item.Rows.Count - 2
                If data_item.Rows(rows).Cells.Item("NumeroItem").Value.ToString = txt_recherche.Text) Then
                    rangertrouver = True
                    Exit For
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

[NemesisProg]

J'ai effectivement une ligne vide à la fin! De plus, j'ai effectué ton code et ça marche à merveille! Je te remercie infiniment!