Discussion :

[hajarussa]

salut tout le monde,

je developpe un projet en vb.net et j'ai un petit souci avec la selection et recuperation de données à partir d'un datagridview .
Donc , dans une forme j'ai un datagridview et des texbox , initialement mes objets sont vides et quand je click sur un bouton afficher , j'affiche les données de ma BD dans le datagridview , alors mon pb c'est comment aprés avoir selectionner une ligne du datagridview afficher les informations correspendants dans les texbox.

Merci de m'aider

[CSharpMan]

Slt avec les index des Rows de ton datagrid

[JennBBd]

Bonjour

Sauf erreur, qqchose dans ce gout-la :

textbox1.text = DataGridView1.SelectedRows(0).Cells(i).Value

[CSharpMan]

TextBox1.Text = CType(DataGrid1(1, 1), String)

tu recupere la ligne 1 de la 1 collone

[hajarussa]

Slt ,
Merci CSharpMan,

TextBox1.Text = CType(DataGrid1(1, 1), String)

Je ne sais pas pourquoi ça ne marche pas ,j'ai fait :
id1.Text = CType(Dg(1, 1), String) et ça m'affiche le msg d'erreur suivant :

Value of type 'System.Windows.Forms.DataGridViewCell' cannot be converted to 'String'.

[CSharpMan]

rajoute cette ligne en dessous

DataGrid1(1, 1) = TextBox1.Text

[CSharpMan]

A mon avis tu dois avoir un datagridview est non un datagrid c'est pour cela que sa ne finctionne pas

[m-mas]

il faut utiliser l'évenement datagridview_CellClick, ensuite déterminer quel valeur l'utilisateur à cliqué :

Code :

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

1
2
3
4
5
6
 
If e.ColumnIndex = -1 OrElse e.RowIndex = -1 Then Exit Sub
Dim nom_col As String = datagridview.Columns(e.ColumnIndex).Name
 
Dim monchamp As Integer = CInt(datagridview.Item(nom_col, e.RowIndex).Value)
monchamptext.Text = monchamp

[hajarussa]

Salut ,
Excusez moi je ne me suis pas bien exprimée, voilà en fait il s'agit d'une fonction de recherche que je developpe sous vb.net 2005, je demande le nom et /ou le prenom et j'affiche les personnes correspendants à ma recherche dans un datagridview , mon souci c'est que je veux selectionner une ligne de mon datagridview et avoir les informations dans des texBox. J'ai essayé ce que vous m'avez proposé mais je suis tjr bloquée.

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
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
 Private Sub bt_search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_search.Click
 
 
        Dim NomRecherche As String
        Dim PrenomRecherche As String
        Dim Matable As DataTable
        Matable = DS_cabinet.Tables("_tbPATIENT")
        Dim CountItem As Integer
        Dim dv As New DataView(Me.DS_cabinet.Tables("_tbPATIENT")) 'on met une table dans le dataview
        NomRecherche = InputBox("Veuillez entrer le nom recherché", "Recherche")
        PrenomRecherche = InputBox("Veuillez entrer le prénom recherché", "Recherche")
        If NomRecherche = "" And PrenomRecherche = "" Then
            MsgBox("veuillez entrer un nom et/ou un prenom à recherche SVP")
            'definition de notre table  
        Else
            If NomRecherche = "" Then
                dv.RowFilter = "prenom like'*" & PrenomRecherche & "*'"
            ElseIf PrenomRecherche = "" Then
                dv.RowFilter = "nom like'*" & NomRecherche & "*'"
            Else
                dv.RowFilter = "nom like'*" & NomRecherche & "*' AND prenom like'*" & PrenomRecherche & "*'"
            End If
            CountItem = dv.Count
            dv.Sort = "NOM,PRENOM,AGE "  'on trie  sur le champ Nom en ordre décroissant (ASC pour un tri croissant).
            dv.RowFilter = "nom like'*" & NomRecherche & "*' AND prenom like'*" & PrenomRecherche & "*'"
            Dg.DataSource = dv
        End If
        If CountItem > 0 Then
            id1.Text = dv.Item(0)(0)
            n1.Text = dv.Item(0)(1)
            p1.Text = dv.Item(0)(2)
            s1.Text = dv.Item(0)(3)
            a1.Text = dv.Item(0)(4)
            pr1.Text = dv.Item(0)(5)
            adr1.Text = dv.Item(0)(6)
            tel1.Text = dv.Item(0)(7)
            m1.Text = dv.Item(0)(8)
 
        Else : MsgBox("Inexistant")
        End If
 
    End Sub

Merci de m'aider

[hajarussa]

Salut ,
Merci tt le monde ,

il faut utiliser l'évenement datagridview_CellClick, ensuite déterminer quel valeur l'utilisateur à cliqué :

Code :

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

1
2
3
4
5
 
If e.ColumnIndex = -1 OrElse e.RowIndex = -1 Then Exit Sub
Dim nom_col As String = datagridview.Columns(e.ColumnIndex).Name
Dim monchamp As string = Cstr(datagridview.Item(nom_col, e.RowIndex).Value)
monchamptext.Text = monchamp

Merci Morsi , ça marche juste au niveau du champ selectioné .
Mon pb c' que je veux selectionner toute une ligne et non seulement un champ ou si je selectionne seulement un champ, recuperer ttes les valeurs de la lignes dans des texBoxs.
Merci

[hajarussa]

Salut,
Enfin voilà la solution à mon pb si ça vs interesse
'pour selectionner tte la ligne du datagridview
mondatagridview.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'pour attribuer chaque colonne à son texbox correspondant
Dim s As String = mondatagridview.Rows(e.RowIndex).Cells(0).Value
id.Text = s
Dim k As String = mondatagridview.Rows(e.RowIndex).Cells(1).Value
nom.Text = k
etc...

Merci