Naqash Younis Ответов: 1

Нужна помощь в отчете rdlc..пытаюсь получить справку через 25 дней...

у меня есть 50 записей студентов в одной таблице студентов sql Server, которые содержат все сведения о студентах, приведенные ниже.

Имя студента
Имя Отца
Ролл Нет
Имя класса
Сумма Гонорара

Я разрабатываю отчет RDLC как ваучер студенческого взноса, а также подключаю базу данных, но когда я нажимаю на кнопку Сгенерировать ваучер студенческого взноса, он показывает только одну запись студента для готовой печати, но я хочу, чтобы все записи студентов печатались отдельно на 50 страницах или зависели от количества записей студентов одним щелчком мыши или объединяли все ваучеры сборов в один файл pdf-файла.

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

я пытаюсь получить решение от 25 дней, но никто не помогает мне также задать этот вопрос несколько раз на этом сайте, но никто не пытается помочь мне..
пожалуйста, решите эту проблему, дайте мне код.
VB.NET +SQL SERVER

Richard MacCutchan

Никто не собирается писать ваш код за вас. Если вы не понимаете, как работают отчеты RDLC, то посмотрите документацию. Если у вас есть какой-то код, который не работает, то покажите этот код в своем вопросе и объясните, где возникает проблема(проблемы).

Naqash Younis

я использую этот код, но этот код генерирует только одну запись студента

1 Ответов

Рейтинг:
1

Naqash Younis 

<pre>  Public Function itemQillareport() As DataSet
        Dim dsData As DataSet
        Try

            dsData = DalHelper.ExecuteDataset(m_ConString, CommandType.Text, "SELECT dbo.MonthlyFeeGenrate.*, dbo.School_Info.* FROM dbo.MonthlyFeeGenrate CROSS JOIN dbo.School_Info where MonthlyFeeGenrate.registration_id='" & StidentFee.TextBox14.Text & "' and MonthlyFeeGenrate.Received_Fee='0' and  MonthlyFeeGenrate.Fee_Year='" & StidentFee.TextBox4.Text & "' and School_Info.Id='1'")
        Catch ex As Exception
            Return Nothing
        End Try
        Return dsData

    End Function
    

    Private Sub Employe_Led_report_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       

        ReportViewer1.LocalReport.ReportEmbeddedResource = "KTC.Report38.rdlc"
            Dim rdsNumberofReferrals As New Microsoft.Reporting.WinForms.ReportDataSource()

            rdsNumberofReferrals.Name = "DataSet1"
            Dim dsBrands As DataSet = itemQillareport()
            rdsNumberofReferrals.Value = dsBrands.Tables(0)
            ReportViewer1.LocalReport.DataSources.Add(rdsNumberofReferrals)
            ReportViewer1.Update()
        Dim newPageSettings As New System.Drawing.Printing.PageSettings
        newPageSettings.PaperSize = New Printing.PaperSize("Custom", 820, 1150)

        newPageSettings.Landscape = True
        newPageSettings.Margins = New System.Drawing.Printing.Margins(30, 10, 10, 10)
        ReportViewer1.SetPageSettings(newPageSettings)

        Me.ReportViewer1.ZoomPercent = 90
        Me.ReportViewer1.ZoomMode = Microsoft.Reporting.WinForms.ZoomMode.Percent
        Me.ReportViewer1.RefreshReport()

    End Sub