Obtenir le texte de DataGridView cellules sélectionnées

J'ai un DataGridView avec des cellules à partir d'un fichier de base de données qui contient des données. Fondamentalement, je veux obtenir le texte de la sélectionné cellules dans le DataGridView et l'afficher dans une zone de texte en cliquant sur le bouton. Le code pour l'événement click du bouton est:

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim SelectedThings As String = DataGridView1.SelectedCells.ToString
    TextBox1.Text = SelectedThings
End Sub

Cependant dans TextBox1 j'obtiens:

Système.De Windows.Les formulaires.DataGridViewSelectedCellCollection

Je pense qu'il n'est pas aussi simple qu'il y paraît. Je suis un développeur C juste de l'apprentissage VB.NET.

OriginalL'auteur | 2009-04-07

8

DataGridView.SelectedCells est un ensemble de cellules, de sorte qu'il n'est pas aussi simple que d'appeler ToString() sur elle. Vous avez à boucle à travers chaque cellule de la collection et obtenir de chaque valeur de la cellule à la place.

La suivante permet de créer une liste délimitée par des virgules de toutes les cellules sélectionnées valeurs.

C#
```
TextBox1.Text = "";
bool FirstValue = true;
foreach(DataGridViewCell cell in DataGridView1.SelectedCells)
{
    if(!FirstValue)
    {
        TextBox1.Text += ", ";
    }
    TextBox1.Text += cell.Value.ToString();
    FirstValue = false;
}
```
VB.NET (Traduit du code ci-dessus)
```
TextBox1.Text = ""
Dim FirstValue As Boolean =  True 
Dim cell As DataGridViewCell
For Each cell In DataGridView1.SelectedCells
    If Not FirstValue Then
        TextBox1.Text += ", "
    End If
    TextBox1.Text += cell.Value.ToString()
    FirstValue = False
Next
```
Donc je dois trouver chaque cellule que l'utilisateur sélectionne?
En quelque sorte, mais ce n'est pas exactement la façon dont je l'avais mis. Vous n'avez pas à "trouver" les cellules, comme une référence à eux vous est présenté dans la collection.
Amélioration mineure dans le VB.NET version: &= au lieu de += (à la fois le travail bien sûr).

OriginalL'auteur lc.

Essayez ceci:

Dim i = Datagridview1.currentrow.index
textbox1.text = datagridview1.item(columnindex, i).value

Cela devrait fonctionner 🙂

OriginalL'auteur Lullly

Simplement

MsgBox(GridView1.CurrentCell.Value.ToString)

OriginalL'auteur mands

Private Sub DataGridView1_CellClick(ByVal sender As System.Object, _
                                    ByVal e As DataGridViewCellEventArgs) _
                                    Handles DataGridView1.CellClick
    MsgBox(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value)
End Sub

OriginalL'auteur Wyt

0

Dans ce cas précis, les méthodes ToString() retourne le nom de l'objet retruned par le SelectedCell de la Propriété.( une collection de la cellule sélectionnée).

Ce problème se produit lorsqu'un objet n'est pas spécifique implenetation pour le ToString() des méthodes.

dans notre cas, tout ce que vous avez à faire est d'itérer la collecte de ces cellules et à accumuler ses valeurs à une chaîne. puis poussez cette chaîne dans la zone de texte.

regardez ici comment mettre en œuvre l'itération:

msdn

OriginalL'auteur ofer
0

Ou dans le cas où vous avez juste besoin de la valeur de la première sélectionné vendre (ou simplement d'une cellule sélectionnée si l'on est sélectionné)
```
TextBox1.Text = SelectedCells[0].Value.ToString();
```
OriginalL'auteur Cyril Gupta

le Meilleur des deux mondes.....

Private Sub tsbSendNewsLetter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbSendNewsLetter.Click
        Dim tmpstr As String = ""
        Dim cnt As Integer = 0
        Dim virgin As Boolean = True
        For cnt = 0 To (dgvDetails.Rows.Count - 1)
            If Not dgvContacts.Rows(cnt).Cells(9).Value.ToString() Is Nothing Then
                If Not dgvContacts.Rows(cnt).Cells(9).Value.ToString().Length = 0 Then
                    If Not virgin Then
                        tmpstr += ", "
                    End If
                    tmpstr += dgvContacts.Rows(cnt).Cells(9).Value.ToString()
                    virgin = False
                    'MsgBox(tmpstr)
                End If
            End If
        Next
        Dim email As New qkuantusMailer()
        email.txtMailTo.Text = tmpstr
        email.Show()
    End Sub

OriginalL'auteur code46

ou, nous pouvons utiliser quelque chose comme cela

dim i = dgv1.CurrentCellAddress.X
dim j = dgv1.CurrentCellAddress.Y
MsgBox(dgv1.Item(i,j).Value.ToString())

OriginalL'auteur Peter Juanda

0

Un grand nombre de réponses sur cette page s'appliquent uniquement à une seule cellule, et OP demandé tous les cellules sélectionnées.

Si tout ce que vous voulez, c'est le contenu de la cellule, et vous n'avez pas de soins sur les références à la réalité de cellules qui sont sélectionnés, vous pouvez simplement faire ceci:
```
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim SelectedThings As String = DataGridView1.GetClipboardContent().GetText().Replace(ChrW(9), ",")
    TextBox1.Text = SelectedThings
End Sub
```
Quand Button1 est cliqué, cela remplira TextBox1 avec les valeurs séparées par des virgules dans les cellules sélectionnées.

OriginalL'auteur alldayremix

Vous devez vous connecter pour publier un commentaire.