Text aus den ausgewählten Zellen im DataGridView

Ich habe ein DataGridView mit Zellen aus einer Datenbank-Datei, die Daten enthält. Im Grunde möchte ich, um den text aus der ausgewählt Zellen im DataGridView-und zeigt Sie in einem Textfeld auf dem klicken der Schaltfläche. Der code für die Schaltfläche click-Ereignis:

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

Jedoch in TextBox1 ich bekommen:

System.Windows.Formen.DataGridViewSelectedCellCollection

Ich denke es ist nicht so einfach wie es scheint. Ich bin C-Entwickler nur zu lernen, VB.NET.

InformationsquelleAutor | 2009-04-07

8

DataGridView.SelectedCells ist eine Sammlung von Zellen, es ist also nicht so einfach wie der Aufruf von ToString() auf Sie. Müssen Sie eine Schleife durch jede Zelle in der Sammlung und erhalten Sie jedes Zelle Wert statt.

Folgende erstellt eine Komma-separierte Liste aller markierten Zellen Werte.

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 (Übersetzt aus dem obigen code)
```
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
```
- Also ich finde, dass jede Zelle, die der Benutzer auswählt?
- Art, aber das ist nicht genau, wie ich es beschrieb. Sie haben nicht zu "finden" der Zellen, als Referenz, um Ihnen präsentiert wird, um Sie in die Sammlung.
- Geringfügige Verbesserung in der VB.NET version: &= statt += (beide funktionieren natürlich).
InformationsquelleAutor lc.

Versuchen Sie dies:

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

Sollte es funktionieren 🙂

InformationsquelleAutor Lullly

Einfach

MsgBox(GridView1.CurrentCell.Value.ToString)

InformationsquelleAutor 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

InformationsquelleAutor Wyt

0

In diesem speziellen Fall, wird die ToString() wird wieder der name des Objekts retruned durch die SelectedCell-Eigenschaft.( eine Auflistung der ausgewählten Zellen).

Dieses Verhalten tritt auf, wenn ein Objekt keine speziellen Durchführung für die ToString () - Methoden.

in unserem Fall, alles, was Sie tun müssen, ist zum Durchlaufen der Auflistung der Zellen und zu sammeln, seine Werte zu einem string. dann drücken Sie diesen string an die TextBox.

haben Sie einen Blick hier, wie die Umsetzung der iteration:

msdn

InformationsquelleAutor ofer
0

Oder im Fall brauchen Sie nur den Wert des ersten aktuellen verkaufen (oder nur einer ausgewählten Zelle, wenn eine ausgewählt ist)
```
TextBox1.Text = SelectedCells[0].Value.ToString();
```
InformationsquelleAutor Cyril Gupta

das Beste aus beiden Welten.....

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

InformationsquelleAutor code46

oder können wir so etwas wie das

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

InformationsquelleAutor Peter Juanda

0

Viele der Antworten auf dieser Seite gelten nur für eine einzelne Zelle, und der OP fragte nach alle die ausgewählten Zellen an.

Wenn alle Sie wollen, ist der Inhalt der Zelle, und Sie kümmern sich nicht um Verweise auf die eigentlichen Zellen ausgewählt sind, können Sie genau dies tun:
```
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
```
Wenn Button1 geklickt wird, wird diese zu füllen TextBox1 mit Komma-getrennten Werten für die ausgewählten Zellen.

InformationsquelleAutor alldayremix

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.