How can I retrieve all the values from a row in a DGV into an array?

Accepted answer

Viorel 114.7K

If you are using the data binding, then get the values from the source object.

Or try this:

Dim values As Object() = DataGridView1.Rows(0).Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray

This example gets the first row. Use another index or adjust it for your needs.

Daniel McElhinney 120

Thank you Viorel that done it for me.

Dim values As Object() = PersonDataGridView.Rows(PersonDataGridView.CurrentRow.Index).Cells.Cast(Of DataGridViewCell).Select(Function(c) c.Value).ToArray
        Dim msg As String = String.Empty
        For i = 0 To values.Count - 1
            msg &= vbCrLf & values.GetValue(i).ToString
        Next
        MsgBox(msg)

Daniel McElhinney 120 Reputation points

2023-03-03T05:56:48.0933333+00:00

How would I do the same thing for column values. I've tried altering the code but can not solve it.

Daniel McElhinney 120

I found some code and edited to the follow, however your code for the rows in neater.

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim array As String() = New String(PersonDataGridView.Rows.Count - 1) {}
        Dim msg As String = String.Empty

        Dim j As Integer = PersonDataGridView.CurrentCell.ColumnIndex
        For i As Integer = 0 To PersonDataGridView.Rows.Count - 1
            array(i) = PersonDataGridView.Rows(i).Cells(j).Value
            msg &= array(i) & vbCrLf
        Next
        MsgBox(msg)
    End Sub

Viorel 114.7K

In case of columns, for example:

Dim column_index = 0
Dim values As Object() = PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value).ToArray

Dim msg As String = String.Join(vbCrLf, PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value))

Daniel McElhinney 120 Reputation points

2023-03-03T09:50:11.7433333+00:00

Thank you again Viorel for your help that fixed it for me.

Daniel McElhinney 120

What am i missingViorel?

    Private Sub CurrentColumsValue2_Click(sender As Object, e As EventArgs) Handles CurrentColumsValue2.Click
        Dim column_index As Integer = PersonDataGridView.CurrentCell.ColumnIndex
        Dim values As Object() = PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value).ToArray
        Dim msg As String = String.Empty
        For i = 0 To values.Count - 1
            msg &= values.GetValue(i).ToString & vbCrLf
        Next
    End Sub

Daniel McElhinney 120 Reputation points

2023-03-03T10:20:23.14+00:00

What am I missing in the second button click event. The first one give me a antedated string but the second wont produce the array I would like to have?

Daniel McElhinney 120

 'Current Column Values
    Private Sub btnCurrentColumnValues_Click(sender As Object, e As EventArgs) Handles btnCurrentColumnValues.Click
        Dim column_index As Integer = PersonDataGridView.CurrentCell.ColumnIndex
        Dim msg As String = String.Join(vbCrLf, PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value))
        MsgBox(msg, vbOKOnly, "Column Values")
    End Sub
    'Current Column Values (2)
    Private Sub CurrentColumsValue2_Click(sender As Object, e As EventArgs) Handles CurrentColumsValue2.Click
        Dim column_index As Integer = PersonDataGridView.CurrentCell.ColumnIndex
        Dim values As Object() = PersonDataGridView.Rows.Cast(Of DataGridViewRow).Select(Function(r) r.Cells(column_index).Value).ToArray
        Dim msg As String = String.Empty
        For i = 0 To values.Count - 1
            msg &= values.GetValue(i).ToString & vbCrLf
        Next
        MsgBox(msg)
    End Sub

Share via

How can I retrieve all the values from a row in a DGV into an array?

0 additional answers