如何使用VB在ASP.NET中使用DataGrid (而不是DataGridView)导出为csv或excel文件？

Protected Sub ExportToCSV_Click(sender As Object, e As EventArgs)
    Response.Clear()
    Response.Buffer = True
    Response.AddHeader("content-disposition", "attachment;filename=export.csv")
    Response.Charset = ""
    Response.ContentType = "application/text"

    Dim sb As New StringBuilder()
    Dim dt As DataTable = GetData() ' 获取数据源

    ' 添加表头
    For Each column As DataColumn In dt.Columns
        sb.Append(column.ColumnName + ",")
    Next
    sb.Append(vbCr)

    ' 添加数据行
    For Each row As DataRow In dt.Rows
        For i As Integer = 0 To dt.Columns.Count - 1
            sb.Append(row(i).ToString().Replace(",", "") + ",")
        Next
        sb.Append(vbCr)
    Next

    ' 将数据写入响应流
    Response.Output.Write(sb.ToString())
    Response.Flush()
    Response.End()
End Sub

Private Function GetData() As DataTable
    ' 获取数据源的方法，可以根据实际情况自行实现
    ' 这里只是一个示例，你需要根据你的DataGrid绑定的数据源来获取数据
    Dim dt As New DataTable()
    dt.Columns.Add("Column1", GetType(String))
    dt.Columns.Add("Column2", GetType(String))
    dt.Columns.Add("Column3", GetType(String))

    dt.Rows.Add("Value1", "Value2", "Value3")
    dt.Rows.Add("Value4", "Value5", "Value6")

    Return dt
End Function