vb.net DataGridView自定义函数多个标题文本写入数组，用数组元素按行向下遍历，获取标题文本对应单元格的值，每行后面带详细注释

好的，我来为您提供一个示例代码。

首先，我们需要定义一个函数来获取指定标题文本对应单元格的值：

Private Function GetCellValue(row As DataGridViewRow, header As String) As String
    Dim columnIndex As Integer = DataGridView1.Columns(header).Index
    Dim cellValue As String = row.Cells(columnIndex).Value.ToString()
    Return cellValue
End Function

这个函数接收一个数据行和一个标题文本作为参数，然后使用标题文本获取其对应的列索引，并使用该索引获取单元格的值。最后，它返回单元格的值。

接下来，我们可以使用以下代码遍历数据表格并获取指定标题文本对应单元格的值：

Dim headers() As String = {"Header1", "Header2", "Header3", "Header4"}

For Each row As DataGridViewRow In DataGridView1.Rows
    For Each header As String In headers
        Dim cellValue As String = GetCellValue(row, header)
        Console.WriteLine(header & ": " & cellValue)
    Next
Next

在这个示例中，我们首先声明一个数组来存储多个标题文本。然后，我们使用外部循环遍历每一行数据，接着内部循环遍历存储在数组中的标题文本。然后，我们调用上面定义的函数 GetCellValue 来获取指定标题文本对应单元格的值。最后，我们将标题文本和单元格的值输出到控制台上。

如果你需要将这些值显示在窗体中，你可以将它们添加到一个列表框或数据表格中。这里提供一个示例代码：

Dim headers() As String = {"Header1", "Header2", "Header3", "Header4"}
Dim DataTable1 As New DataTable

For Each header As String In headers
    DataTable1.Columns.Add(header)
Next

For Each row As DataGridViewRow In DataGridView1.Rows
    Dim newRow As DataRow = DataTable1.NewRow()
    For Each header As String In headers
        Dim cellValue As String = GetCellValue(row, header)
        newRow(header) = cellValue
    Next
    DataTable1.Rows.Add(newRow)
Next

DataGridView2.DataSource = DataTable1

在这个示例中，我们首先创建了一个空的数据表格 DataTable1，并使用循环遍历存储在数组中的标题文本。然后，我们使用标题文本作为列名创建一个新的数据列，并将其添加到数据表格 DataTable1 中。接下来，我们使用外部循环遍历每一行数据，接着内部循环遍历存储在数组中的标题文本。然后，我们调用上面定义的函数 GetCellValue 来获取指定标题文本对应单元格的值，并将其添加到一个新的数据行 newRow 中。最后，我们将添加好的数据行添加到数据表格 DataTable1 中，并将其作为数据源绑定到另一个 DataGridView2 控件上。

希望这些示例代码能够帮助你解决问题。如果你有其他疑问或需要进一步协助，请随时联系我。