Vb.net 从DataGridView获取信息

Vb.net 从DataGridView获取信息,vb.net,datagridview,Vb.net,Datagridview,我需要获取位于用户选择的行的datagrid视图中的每个单元格中的信息。我有选择行下来,我只是需要帮助获得在单元格中的信息。现在,当数据实际上是一个字符串时,它只返回DataGridVewRow{Index=7}。这是我的功能 Private Function getCoordinates() Dim dt As New DataTable Dim dt2 As New DataTable 'Dim r As DataRow Dim n As Integer =

我需要获取位于用户选择的行的datagrid视图中的每个单元格中的信息。我有选择行下来,我只是需要帮助获得在单元格中的信息。现在,当数据实际上是一个字符串时,它只返回
DataGridVewRow{Index=7}
。这是我的功能

Private Function getCoordinates()
    Dim dt As New DataTable
    Dim dt2 As New DataTable
    'Dim r As DataRow
    Dim n As Integer = 0
    Dim selectedItems As DataGridViewSelectedRowCollection = dgv.SelectedRows
    dt = dgv.DataSource
    dgv.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    dgv.MultiSelect = True
    Dim i = dgv.CurrentRow.Index




    dt2.Columns.Add("Position")
    Try

        If selectedItems Is Nothing Then
            For n = 0 To dt.Rows.Count - 1
                dt2.Rows.Add(n)
                dt2.Rows(n)("Position") = dt.Rows.Item(n)("Mouse Position")
            Next

        Else

            For Each selectedItem As DataGridViewRow In selectedItems


                dt2.Rows.Add(selectedItem)
                dt2.Rows(selectedItem.Index)("Position") = dt.Rows.Item(selectedItem.Index)("Mouse Position")

            Next
        End If

    Catch ex As Exception
        MsgBox("Error", MsgBoxStyle.Exclamation, "Error!")
    End Try


    Return dt2


End Function

您可以通过DataGridViewRow的cells属性获取单元格文本。以下示例将从每个选定行的第一个单元格中获取文本:

Dim strContents As String = String.Empty

For Each selectedItem As DataGridViewRow In selectedItems

     strContents += " First Cell's Text: " & selectedItem.Cells(0).Text

Next

您还可以使用“For Each objCell As DataGridViewCell In selectedItems.cells”遍历所有单元格。非常感谢,您已解决了该问题,但现在我遇到另一个错误-_-