Нет значения в crystal report при выборе раскрывающегося списка

---

Привет..
Я создаю модуль отчетности, когда мы выбираем выпадающий список, он будет отображать результат, но в моем случае он ничего не показывает, он показывается пустым, У меня есть запрос it ok.- Пожалуйста, совет. Ниже приводится кодировка.

aspx-файл.ВБ

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

Что я уже пробовал:

монахиня

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

---