我正在寻找一种方法来使我的数据网格视图中的第一列成为标题

Question

好的，所以我有一个数据集，从excel文件中提取特定的单元格，并填充一个datagridview列。然而，我拉的单元格真的需要是标题，而不是正常的列在datagridview。那么，是否有一种简单的方法可以将这列数据转换为标题文本?为了帮助详细说明，我在下面提供了一些包含注释的代码。

' The following lines specify the exact cells I with to pull from the excel file and populates the first column of the datagridview
MyCommand1 = New OleDbDataAdapter("Select * from [myWorksheet$A15:B21]", MyConnection)

'Here is my dataset'
    ds1 = New System.Data.DataSet()
DataGridView1.DataSource = ds1.Tables(0).DefaultView
'So at this point I have a datagridview with a column of data from the exact cells 
' from the excel file that I want

'This last part is code I found on MSDN which will hide the column headers and will turn the first column into headertext. Essentially it is adding an additional column to the left and turning that into headertext. 
Private Sub DataGridView8_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles DataGridView8.CellPainting
    Dim rowNumber As Integer = 1
    For Each row As DataGridViewRow In DataGridView8.Rows
        If row.IsNewRow Then Continue For
        row.HeaderCell.Value = "Row " & rowNumber
        rowNumber = rowNumber + 1
    Next
    DataGridView8.AutoResizeRowHeadersWidth( _
        DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders)
End Sub
'If anyone can find out a way for me to make the first column headertext it would make my day. 

Answer 1

只是一个想法…

Dim tblXls as DataTable = ds1.Tables(0) '---> this is your table
Dim tblNew as New Datatable
Dim dc as DataColumn
For x as Integer = 0 to tblXls.Rows.Count -1
    dc = New DataColumn
    dc.DataType = System.Type.GetType("System.DateTime")
    dc.ColumnName = tblXls.Rows(x).Item(0)
    tblNew.Columns.Add(dc)
Next

然后将tblNew设置为您的DGV数据源。

DataGridView.Datasource = tblNew

这只是准备头文件。

Answer 2

不太确定，但更改您的连接字符串可能会为您做这项工作。

connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:Test.xlsx;Extended Properties=" + Convert.ToChar(34).ToString() + "Excel 12.0;HDR=Yes;IMEX=2" + Convert.ToChar(34).ToString() + ""

在上面的代码中，HDR表示标头。设置HDR = Yes将第一行显示为header，设置HDR = No将第一行显示为普通行。

你可以得到更多的信息从MS Excel中获取数据在asp.net

Answer 3

您可以在CellFormatting事件中填充行标题:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim SQL As String = "SELECT [ZIP], [Place] FROM [City_2]"
    dgv1.DataSource = Gen.GetDataView(SQL) ' load the datasource here
    dgv1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
    dgv1.Columns(0).Visible = False ' contains same as row header
    dgv1.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.AutoSizeToAllHeaders
End Sub
Private Sub dgv1_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgv1.CellFormatting
    dgv1.Rows(e.RowIndex).HeaderCell.Value = dgv1.Rows(e.RowIndex).Cells(0).Value
End Sub