VB.NET DataSet表数据为空

Question

我正在尝试将数据集用于报告，但是当我尝试使用它时数据就消失了。 这是我的大部分代码：

变量：

Dim ResultsDataView As DataView
Dim ResultsDataSet As New DataSet
Dim ResultsTable As New DataTable
Dim SQLQuery As String

搜索：这是在主视图中填充数据网格的地方。 数据完美显示。

Private Sub Search(Optional ByVal Bind As Boolean = True, Optional ByVal SearchType As String = "", Optional ByVal SearchButton As String = "")
        Dim SQLQuery As String
        Dim ResultsDataSet
        Dim LabelText As String
        Dim MultiBudgetCenter As Integer = 0

        SQLQuery = "A long and detailed SQL query that grabs N rows with 7 columns"
        ResultsDataSet = RunQuery(SQLQuery)
        ResultsTable = ResultsDataSet.Tables(0)

        For Each row As DataRow In ResultsTable.Rows
            For Each item In row.ItemArray
                sb.Append(item.ToString + ","c)
                Response.Write(item.ToString + "\n")
                Response.Write(vbNewLine)
            Next
            sb.Append(vbCr & vbLf)
        Next
        'Response.End()

        If Bind Then
            BindData(ResultsDataSet)
        End If

    End Sub

绑定数据：我认为这是问题的原因。

Private Sub BindData(ByVal InputDataSet As DataSet)
        ResultsDataView = InputDataSet.Tables("Results").DefaultView

        ResultsDataView.Sort = ViewState("SortExpression").ToString()

        ResultsGridView.DataSource = ResultsDataView

        ResultsGridView.DataBind()
End Sub

报告操作：这是我尝试使用表数据的地方。 但是它什么也没显示。

Protected Sub ReportButton_Click(sender As Object, e As EventArgs) Handles ReportButton.Click
        For Each row As DataRow In ResultsTable.Rows
            For Each item In row.ItemArray
                Response.Write(item.ToString)
            Next
        Next
    End Sub

我试图遍历此数据的原因是既要在主视图上的gridview中显示数据，又要将数据导出到CSV。 如果有其他方法可以将SQL查询导出为CSV，则欢迎提出任何建议。

我必须做些什么才能从SQL查询中获取数据，以通过ReportButton_Click方法持久化。 我尝试过复制数据表，尝试过全局变量，尝试过遍历数据集的不同方法。 我想念什么？！

谢谢大家。

编辑这是Page_Load：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack Then
            'set focus to postback control
            Dim x As String = GetPostBackControlName(Page)

            If Len(x) > 0 Then
                x = x.Replace("$", "_")
                SetFocus(x)
            End If
        End If

        If Not IsPostBack Then
            ResultsGridView.AllowPaging = False

            'Enable Gridview sorting
            ResultsGridView.AllowSorting = True

            'Initialize the sorting expression
            ViewState("SortExpression") = "ID DESC"

            'Populate the Gridview
            Search()
        End If
    End Sub

Answer 1

在您的搜索功能中，在ResultsTable设置之后添加此行

    ResultsTable = ResultsDataSet.Tables(0)
    Session("LastSearch") = ResultsTable

然后在报表中单击事件处理程序，从Session变量中恢复数据

Protected Sub ReportButton_Click(sender As Object, e As EventArgs) Handles ReportButton.Click
    ResultsTable = DirectCast(Session("LastSearch"), DataTable)
    For Each row As DataRow In ResultsTable.Rows
        For Each item In row.ItemArray
            Response.Write(item.ToString)
        Next
    Next
End Sub

您需要阅读有关ASP.NET生命周期的信息，并了解每次ASP.NET调用您的方法时，它都会创建Page类的新实例。 当然，这意味着ASP.NET中的全局页面变量不是很有用。
还可以考虑阅读有关该Session对象的信息，不要滥用它。

SessionState和ViewState有什么区别？