none
How to pass Image from form picturebox to rdlc report picturebox using parameter RRS feed

  • Question

  • Imports Microsoft.Reporting.WinForms

    Public Class PrintBC
        Private Sub PrintBC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'TODO: This line of code loads data into the 'Printing.BCPrint' table. You can move, or remove it, as needed.
            Me.BCPrintTableAdapter.Fill(Me.Printing.BCPrint)

            'Date
            Dim Dt As New ReportParameter("Dt", BC.TextBox5.Text)
            ReportViewer1.LocalReport.SetParameters(Dt)
            'Name
            Dim Name As New ReportParameter("Firstname", BC.First_NameTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Name)
            'LName
            Dim LName As New ReportParameter("Lastname", BC.Last_NameTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(LName)
            'Patient No.
            Dim Pno As New ReportParameter("Pno", BC.Sequence_NoTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Pno)
            'Physician
            Dim Phy As New ReportParameter("Phy", BC.Full_NameTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Phy)
            'Age
            Dim Edad As New ReportParameter("Edad", BC.AgeTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Edad)
            'Gender
            Dim Gens As New ReportParameter("Gens", BC.GenderComboBox.Text)
            ReportViewer1.LocalReport.SetParameters(Gens)
            'Company
            Dim Comp As New ReportParameter("Comp", BC.COMPANY_NAMETextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Comp)
            'Lab No
            Dim Labno As New ReportParameter("Labno", BC.Lab_Control_NoTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(Labno)

            'MT Name
            Dim MT As New ReportParameter("MT", BC.TextBox2.Text)
            ReportViewer1.LocalReport.SetParameters(MT)
            'Lic No
            Dim Licno As New ReportParameter("Licno", BC.TextBox3.Text)
            ReportViewer1.LocalReport.SetParameters(Licno)
            'Position
            Dim MTP As New ReportParameter("MTP", BC.TextBox4.Text)
            ReportViewer1.LocalReport.SetParameters(MTP)

            'DR Name
            Dim DR As New ReportParameter("DR", BC.TextBox1.Text)
            ReportViewer1.LocalReport.SetParameters(DR)
            'Lic No
            Dim DRLIC As New ReportParameter("DRLIC", BC.License_NoTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(DRLIC)
            'Position
            Dim DRP As New ReportParameter("DRP", BC.PositionTextBox.Text)
            ReportViewer1.LocalReport.SetParameters(DRP)

            Me.ReportViewer1.RefreshReport()
        End Sub
    End Class

    Please edit the codes above to insert the parameter for image.

    Tuesday, April 12, 2016 5:59 AM