[Resolved] CR and SetDataSource

snufse · October 3rd, 2008, 12:47 PM

I have as ASP application where I use a DataSet to display a GridView with a click button to display the report. It works fine

Dim mySqlDataSet As New Data.DataSet
mySqlDataSet = Session("MySqlDataSet")
myCrystalReport.Load(Server.MapPath("CrystalReport 1.rpt"))
myCrystalReport.SetDataSource(mySqlDataSet)
CrystalReportViewer1.ReportSource = myCrystalReport

On the user interface I allow user to sort columns in the GridView. This bring me to my question: I would like to show the report the way the GridView is sorted. This means that I would like to use the GridView as data source for the report. What options do I have? Thank you.

snufse · October 6th, 2008, 07:33 AM

Think I figured it out and it works.

Following will use the GridView as data source (instead of a DataSet) and display the report

Code:

Dim GridView1 As New GridView
GridView1.DataSource = Session("myGridView")
myCrystalReport.Load(Server.MapPath("CrystalReport1.rpt"))
myCrystalReport.SetDataSource(GridView1.DataSource)
CrystalReportViewer1.ReportSource = myCrystalReport

Now:

The initial display of the DataGrid. Save the GridView.DataSource in a Session variable. This will save the sort order to be used in CR.

Code:

Public Sub DisplayGridView()
Try
 GridView1.DataSource = mySqlDataSet.Tables("JobListTable")
 GridView1.DataBind()
 Session("myGridView") = GridView1.DataSource
 initialSort = False
Catch ex As Exception
 ErrorString = ex.ToString
 ASPNET_MsgBox("An error has occurred displaying the data: " + vbCrLf + ErrorString)
 End Try

End Sub

When sorting grid column(s) and you want CR to display the same sort order:

Code:

Protected Sub gridView1_Sorting(ByVal sender As Object, ByVal e As GridViewSortEventArgs)
 GridViewSortExpression = e.SortExpression
 GridView1.DataSource = mySqlDataSet.Tables("JobListTable")
 Dim pageIndex As Integer = GridView1.PageIndex
 GridView1.DataSource = SortDataTable(GridView1.DataSource, False)
 GridView1.DataBind()
 GridView1.PageIndex = pageIndex
 Session("myGridView") = GridView1.DataSource
End Sub