Modification DataGrid Aprés recherche

Version imprimable

03/05/2011, 12h08
Crokflo

Modification DataGrid Aprés recherche

Bonjours les programmeurs,

Après 3 jours de recherche sur les forums et maints essais je viens demander de l'aide. Voilà je développe un petit programme en VB.net, je souhaite pouvoir effectuer une recherche dans une datagrid, sélectionner cette ligne et la modifier. J'ai surfé sur les forums j'ai trouvé plein de code mais qui été vraiment bien long et complexe. Existe-t-il une manière des plus simples pour rechercher une donnée dans un datagrid grâce à une textbox et la modifier par la suite. Faut 'il obligatoirement utiliser un BindingSource?

Voila en espérant avoir été des plus claires.
Merci d'avance:)
03/05/2011, 13h51
Shadam
Tu pourais montrer ton code parce que là ce n'est pas vraiment évident de comprendre ce que tu veux faire... :?

Si c'est pour trouver la valeur de ta comboBox et si c'est un String :
Code:

1 2 3 4 5 6 For Each row As DataGridViewRow in maDataGrid.Rows If row.Cells.Item("maColonne").Value.ToString.Equals(maComboBox.Text) Then 'Ton traitement End If Next

Oui Dsl pour le code mais j'ai encore rien de bien structuré, et tu as vue trés juste, c'est le code que j'attendais. (Dire que ce n'étais pas grand chose)
Seulement il me met une erreur:

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.
Code:

1 2 3 4 5 For Each row As DataGridViewRow In DataGridView1.Rows If row.Cells.Item("Column1").Value.ToString.Equals(TextBox3.Text) Then nom.Text = "ça MArche" End If Next
Sinon ce code compare les valeurs de ma colonne et ma textbox, mais des fois il ne récupere pas le numéro de la ligne quelquepart ??

03/05/2011, 14h52
Shadam

Tu peux mettre le code complet ou au moins la fonction qui bloque si c'est trop long ;)

Oui si tu veux je met le plus interesssant.
La fonction qui bloque c'est celle que j'ai mis plus haut.

Code:

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
Imports System.IO
Imports System.Text
Public Class Form1
    Dim categorie, jour As String
    Dim numero As Integer = 1
 
    Private Sub Form1_Load() Handles MyBase.Load
        nom.Focus()
    End Sub
 
'Cette fonction sert à envoyer des valeurs dans la datagrid sur 5 colones
    Private Sub add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles add.Click
        Groupe()
        Dim row0 As String() = {nom.Text, prenom.Text, categorie, jour, numeros.Text}
        Me.DataGridView1.Rows.Add(row0)
        numero = numeros.Text
        numero = numero + 1
        numeros.Text = numero
        nom.Clear()
        prenom.Clear()
        nom.Focus()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
'Ici je veux pouvoir rechercher une valeur dans la colone 1 de la datagrid
qui correspond à celle de la TextBox3         
For Each row As DataGridViewRow In DataGridView1.Rows
            If row.Cells.Item("Column1").Value.ToString.Equals(TextBox3.Text) Then 'ICI QUE ARRIVE LE PROBLEME
                nom.Text = "G reussi"
            End If
        Next
    End Sub

Voila ^^ en espérant que cela t'aide
MErci d'avance

Tu as des lignes dans ta DGV avant de lancer ta recherche ?

Sinon tente ce test avant :

Code:

1
2
3
4
5
6
7
8
 
If DataGridView1.Rows.Count > 0 Then
    For Each row As DataGridViewRow In DataGridView1.Rows
            If row.Cells.Item("Column1").Value.ToString.Equals(TextBox3.Text) Then 'ICI QUE ARRIVE LE PROBLEME
                nom.Text = "G reussi"
            End If
        Next
End If

03/05/2011, 15h24
Crokflo

Oui j'ai des lignes avant de faire la recherche.
Et non cela ne change rien toujours le message

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

des fois j'arrive à me corriger mais la je vois pas du tout ce que cette phrase veut dire.
03/05/2011, 15h31
Shadam

Ca veut dire que tu es en train de faire un test sur une variable qui n'a pas été instanciée (c'est pourquoi je te demandais si tu avais des lignes ;))

Essaies de remplacer "Column1" par l'index de colonne sinon (c'est à dire 0) dans ton test.

J'ai trouver le problème. J'ai fait du Pas à Pas et le code marche bien et c'est quand il arrive en fin de colonne qu'il déconne.

Aurait tu une idée pour résoudre le problème? j'ai écrit un bout de code mais c'est moche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub Button1_Click() Handles Button1.Click
        If DataGridView1.Rows.Count > 0 Then
            For Each row As DataGridViewRow In DataGridView1.Rows
                If row.Cells.Item("Column1").Value.ToString.Equals(TextBox3.Text) Then                     nom.Text = "G reussi"
                    If t = DataGridView1.Rows.Count Then
                        Return
                    End If
                    t = t + 1
                End If
            Next
        End If
 
    End Sub

Ps: Réédition je viens de voir ton message. Je vois pas trop ce que tu veux parler pour "index de colone" cela correspond à quoi?

03/05/2011, 15h58
Shadam

Et bien l'index de colonne est ... l'index de colonne ^^, c'est son numéro quoi... (sur base 0 pour une DGV)

par contre je ne comprends pas ce que tu as rajoutés:
- Pourquoi mettre un "return" dans une sub (tu ne voulais pas mettre "exit" plutôt des fois ?)
- Qu'est ce que c'est que ce "t" qui apparaît de nul part ?
03/05/2011, 16h04
Crokflo

Ha OK ... Oui je chercher compliquée pour l'index.
J'ai essayer avec l'index et nn c'est la même chose

Sinon DSL annule le morceau de texte que j'ai taper à l'aveugle il ne sert à rien. Le problème est toujours le même en faite il plante quand il arrive en fin de colonne je voulais l'arréter lorsqu'il arriver à la fin.
03/05/2011, 16h14
Shadam

Bon ok alors on va tout remettre à plat là...

1. Tu insères une ligne dans ta DGV
2. Tu mets du texte dans une TextBox
3. Tu clics sur un bouton pour voir si tu trouves la ligne (qui se trouve effectivement là)
4. Si tu la trouves, tu mets du texte ("ça marche") dans ta texBox

Ca va ? J'ai bon jusque là ?

Le problème c'est que tu as un message qui te dit qu'une variable n'est pas instanciée...

Te dit-il laquelle des fois ? (on ne sait jamais hein ?:mrgreen:)
Qu'est ce que tu entends EXACTEMENT par

Citation:

il plante quand il arrive en fin de colonne
03/05/2011, 16h28
Crokflo

Tu as tout bon ^^ :)

Je fais du Pas à pas quand je lance le programme (STEP INTO)
le "For Each" marche bien il me parcours toute la colonne ligne par ligne arriver à la ligne où ma valeur choisie en TextBox et trouver il exécute bien le "G reussi", puis il continu à lire les lignes suivantes. Arriver en fin de colonne (dernière ligne) il m'indique l'érreur suivante:

Citation:

NullReferenceException was unhandled
La référence d'objet n'est pas définie à une instance d'un objet.

Voila ^^
Merci pour ton aide

Tu as bien mis :

Code:

For Each row As DataGridViewRow In DataGridView1.Rows

et rien d'autre ?

Parce que là ce que t'es en train de me dire c'est qu'il parcours bien toute les lignes mais qu'il ne s'arrête pas à la dernière alors que c'est ce qu'il devrait faire avec le for each 8O

Sinon essaies :
Code:

1 2 3 4 5 6 7 8 dim i as integer = 0 For i = 0 to i = DataGridView1.Rows.count -1 If DataGridView1.Rows.Item(i).Cells.Item("Column1").Value.ToString.Equals(TextBox3.Text) Then nom.Text = "G reussi" End If i += 1 Next

Bonsoir,
l'erreur énoncée est logique (selon moi).

1) L'index des lignes (colonnes également) débute à 0, alors que le count à 1.

2) Il faut aussi savoir si l'utilisateur est autorisé à ajouter de nouvelles données.
Si oui, une ligne vide apparait en final et ne sera instanciée que lorsque l'utilisateur y entrera des données. Si ce n'est pas le cas, la dernière ligne valide (instanciée) est à l'index -1 et en count à -2.
on peut le savoir par la propriété du DGV : NewRowIndex (égal à -1 si non autorisé).

A tester donc :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim base As Integer = 0 If DataGridView1.NewRowIndex = -1 Then base = 1 Else base = 2 End If For i As Integer = 0 To DataGridView1.Rows.Count - base If DataGridView1.Rows.Item(i).Cells.Item(2).Value.ToString.Equals(TextBox3.Text) Then MessageBox.Show("G reussi") End If Next

04/05/2011, 09h20
Shadam

Ah oui je n'y avais pas pensé à la ligne vide parce que je n'autorise quasiment jamais l'utilisateur à ajouter "manuellement" des lignes sur les DGV, je n'ai donc (presque) jamais de lignes vides!! :aie:

si pas tu peux tout simplement faire ceci :

Code:

1
2
3
4
5
6
7
 
For i As Integer = 0 To DataGridView1.Rows.Count - base
            If DataGridView1.Rows.Item(i).Cells.Item(2).Value.ToString.Equals(TextBox3.Text) Then
                MessageBox.Show("G reussi")
                Exit For
            End If
        Next

04/05/2011, 10h19
Shadam

Edit : petite erreur de lecture de ma part désolé, la solution de Darkhan devrait fonctionner ;)

Oui Effectivement la solution de Dharkan fonctionne :)

Code:

1
2
3
4
5
6
For i As Integer = 0 To DataGridView1.Rows.Count - base
            If DataGridView1.Rows.Item(i).Cells.Item(2).Value.ToString.Equals(TextBox3.Text) Then
                MessageBox.Show("G reussi")
                Exit For
            End If
        Next

Merci à vous deux pour l'aide