No value in crystal report when select dropdownlist

See more:

VB

ASP.NET

Hi..
I'm creating Reporting module, when we select the dropdownlist it will display the result, but in my case, it doesnt show anything it shown blank, i've the query it ok..Please advice. Below is the coding.

aspx.vb

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
     Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
     Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
     Dim crExportOptions As ExportOptions
     Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
     Dim Fname As String

     Dim rpt As New ReportDocument
     rpt.Load("C:\Documents and Settings\bibirasidah\Desktop\PR\CrystalReport5.rpt")

     Dim mytablelog As Tables = rpt.Database.Tables


     mmd.CommandType = CommandType.Text
     'SELECT A.PRID, A.PRNo, convert(varchar, A.PRIssues, 101)AS PRIssues, A.Submit, A.Dept, A.Requestor, A.ExtNo, A.Remark, A.Status, B.ProjectCode, B.ProjectCode2, B.ProjectCode3, B.ProjectCode4, B.ProjectCode5, B.PartNo, B.PartNo2, B.PartNo3, B.PartNo4, B.PartNo5, B.PartNo6, B.PartNo7, B.PartNo8, B.PartNo9, B.PartNo10, B.Description, B.Description2, B.Description3, B.Description4, B.Description5, B.Description6, B.Description7, B.Description8, B.Description9, B.Description10, B.ReqQty,B.ReqQty2,B.ReqQty3,B.ReqQty4,B.ReqQty5,B.ReqQty6,B.ReqQty7,B.ReqQty8,B.ReqQty9,B.ReqQty10,B.Category,B.Category2,B.Category3,B.Category4,B.Category5,B.ModelNo,B.ModelNo2,B.ModelNo3,B.ModelNo4,B.ModelNo5,B.ReqETA,B.ReqETA2,B.ReqETA3,B.ReqETA4,B.ReqETA5,B.POref,B.POref2,B.POref3,B.POref4,B.POref5,B.TypeOrder,B.TypeOrder2,B.TypeOrder3,B.TypeOrder4,B.TypeOrder5 FROM PRNumber_ControlBook.dbo.PRNo_CM A LEFT JOIN PRNumber_ControlBook.dbo.ProjectCodePartCM B on A.PRNo=B.PRNo where A.PRID=B.PRID
     mmd.CommandText = "SELECT A.PRNo, A.PRIssues, A.Submit, A.Dept, A.Requestor,A.Remark, A.Status, B.ProjectCode, B.ProjectCode2, B.ProjectCode3, B.ProjectCode4, B.ProjectCode5, B.PartNo, B.PartNo2, B.PartNo3, B.PartNo4, B.PartNo5, B.Description, B.Description2, B.Description3, B.Description4, B.Description5, B.ReqQty,B.ReqQty2,B.ReqQty3,B.ReqQty4,B.ReqQty5,B.Category,B.Category2,B.Category3,B.Category4,B.Category5,B.ModelNo,B.ModelNo2,B.ModelNo3,B.ModelNo4,B.ModelNo5,B.ReqETA,B.ReqETA2,B.ReqETA3,B.ReqETA4,B.ReqETA5,B.POref,B.POref2,B.POref3,B.POref4,B.POref5,B.TypeOrder,B.TypeOrder2,B.TypeOrder3,B.TypeOrder4,B.TypeOrder5 FROM PRNumber_ControlBook.dbo.PRNo_CM A LEFT JOIN PRNumber_ControlBook.dbo.ProjectCodePartCM B on A.PRNo=B.PRNo where A.PRID=B.PRID AND A.PRNo='" & DropDownList3.SelectedValue & "' order by A.PRNo Desc"

     conn.Open()
     Dim da As New SqlDataAdapter(mmd)
     Dim mytable1 As New DataTable("PRTable")

     da.Fill(mytable1)
     mmd.ExecuteNonQuery()

     'rpt.Load("D:\CMOS\eExitPass\CrystalReport3.rpt")
     rpt.SetDataSource(mytable1)
     CrystalReportViewer1.ReportSource = rpt
     ' CrystalReportViewer1.Update()
     CrystalReportViewer1.RefreshReport()
     conn.Close()
     Fname = "c:\windows\temp\" & Session.SessionID.ToString & ".pdf"
     crDiskFileDestinationOptions = New DiskFileDestinationOptions()
     crDiskFileDestinationOptions.DiskFileName = Fname
     crExportOptions = rpt.ExportOptions
     With crExportOptions
         .DestinationOptions = crDiskFileDestinationOptions
         .ExportDestinationType = ExportDestinationType.DiskFile
         .ExportFormatType = ExportFormatType.PortableDocFormat
     End With


     rpt.Export()
     rpt.Close()
     rpt.Dispose()

     Response.Clear()
     Response.ClearContent()
     Response.ClearHeaders()
     Response.ContentType = "application/pdf"
     Response.WriteFile(Fname)
     Response.Flush()
     Response.Close()


     System.IO.File.Delete(Fname)
     'Alert()
     '

 End Sub

What I have tried:

nun

Web04 | 2.8.1901014.2 | Last Updated 26 Mar 2009 Copyright © CodeProject, 1999-2019 
All Rights Reserved.