列名已经属于数据表

Question

我尝试从一个 gridview 复制到另一个 gridview 我试试这个

 Dim dt As New DataTable()

    For Each cell As TableCell In GridView1.HeaderRow.Cells
        dt.Columns.Add(cell.Text)
    Next

    For Each row As GridViewRow In GridView1.Rows
        dt.Rows.Add()
        For i As Integer = 0 To row.Cells.Count - 1
            dt.Rows(row.RowIndex)(i) = row.Cells(i).Text

        Next
    Next

    GridView2.DataSource = dt
    GridView2.DataBind()

但这显示错误

A column named 'Amount' already belongs to this DataTable.

作为我的 SP，我没有重复的列

Answer 1

您评论说您确实有两个标题单元格具有相同的文本"Amount"。您不能将具有相同名称的两列添加到DataTable，因此您必须分配不同的名称或让它自动生成，例如Amount_2, Amount_3,...:

使用Substring 和LastIndexOf 的这个版本还可以处理列名可能包含下划线的情况：

For Each cell In tableCells
    Dim colName = cell
    While dt.Columns.Contains(colName)
        Dim lastUnderscoreIndex = colName.LastIndexOf("_"c)
        Dim colNameWithoutNum = If(lastUnderscoreIndex > -1, colName.Remove(lastUnderscoreIndex), colName)
        Dim numPart = If(lastUnderscoreIndex > -1, colName.Substring(lastUnderscoreIndex + 1), "")
        Dim num As Int32 = If(Int32.TryParse(numPart, num), num + 1, 2)
        colName = $"{colNameWithoutNum}_{num}"
    End While
    dt.Columns.Add(colName)
Next