crystal report help....

NO_MeRcY

Well-known member
  • Jun 14, 2010
    5,423
    449
    83
    Singapore
    You have to use a parameter fields of Crystal report for this....

    1.Open Field Explorer window in Crystal report.
    2.Go to Parameter Fields.
    3.Right click on Parameter Fields-------->Click on New..
    4.In the pop-up window give a Name for your parameter and give its Data Type.say its Name is mytextBoxValue and Data Type is String.
    5.A parameter field[mytextBoxValue ] will be added under Parameter Fields...Drag this field to your report and place where you want to show your textbox value.
    6.Now in the code behind file write the following code to pass your TextBox value to this Crystal report parameter field.

    Code:
    Dim txtValue As String=TextBox1.Text 
    Dim myReport As New CrystalReport1
    myReport .SetParameterValue("mytextBoxValue", txtValue )

    http://bytes.com/topic/net/answers/741945-vb-net-app-send-value-crystal-report
     
    Last edited:

    ad.hasareli

    Well-known member
  • Mar 27, 2010
    5,264
    580
    113
    දකුනේ කොල්ලෙක්
    You have to use a parameter fields of Crystal report for this....

    1.Open Field Explorer window in Crystal report.
    2.Go to Parameter Fields.
    3.Right click on Parameter Fields-------->Click on New..
    4.In the pop-up window give a Name for your parameter and give its Data Type.say its Name is mytextBoxValue and Data Type is String.
    5.A parameter field[mytextBoxValue ] will be added under Parameter Fields...Drag this field to your report and place where you want to show your textbox value.
    6.Now in the code behind file write the following code to pass your TextBox value to this Crystal report parameter field.

    Code:
    Dim txtValue As String=TextBox1.Text 
    Dim myReport As New CrystalReport1
    myReport .SetParameterValue("mytextBoxValue", txtValue )
    http://bytes.com/topic/net/answers/741945-vb-net-app-send-value-crystal-report


    Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
    :(:(:(
     

    nuni

    Member
    Feb 5, 2009
    277
    24
    0
    Colombo
    Here you go machang :)

    'Start Here
    Dim RptForm As CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim T As CrystalDecisions.CrystalReports.Engine.TextObject

    RptForm = rpt '(rpt is your Report object)
    T = RptForm.ReportDefinition.Sections(0).ReportObjects("textboxname")

    T.Text = txtdate.Text

    'End
    rpt.SetDataSource(dev.Tables[0])
    crystalReportViewer1.DisplayGroupTree = false
    crystalReportViewer1.ReportSource = rpt

    :)
     
    Last edited:

    ad.hasareli

    Well-known member
  • Mar 27, 2010
    5,264
    580
    113
    දකුනේ කොල්ලෙක්
    Here you go machang :)

    'Start Here
    Dim RptForm As CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim T As CrystalDecisions.CrystalReports.Engine.TextObject

    RptForm = rpt '(rpt is your Report object)
    T = RptForm.ReportDefinition.Sections(0).ReportObjects("textboxname")

    T.Text = txtdate.Text

    'End
    rpt.SetDataSource(dev.Tables[0])
    crystalReportViewer1.DisplayGroupTree = false
    crystalReportViewer1.ReportSource = rpt

    :)

    chk ur pm machan :)
     

    NO_MeRcY

    Well-known member
  • Jun 14, 2010
    5,423
    449
    83
    Singapore
    Invalid index. (Exception from HRESULT: 0x8002000B (DISP_E_BADINDEX))
    :(:(:(

    parameter name eka hariyata set karalada balan

    Dim txtValue As String=TextBox1.Text
    Dim myReport As New CrystalReport1
    myReport .SetParameterValue("

    mytextBoxValue
    ", txtValue )

    or
    use the parameter index instead of the name

    Code:
    Dim txtValue As String=TextBox1.Text 
    Dim myReport As New CrystalReport1
    myReport .SetParameterValue([B][SIZE="4"][COLOR="Red"]0[/COLOR][/SIZE][/B], txtValue )
     
    Last edited:

    nuni

    Member
    Feb 5, 2009
    277
    24
    0
    Colombo
    Dim RptForm As CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim T As CrystalDecisions.CrystalReports.Engine.TextObject

    RptForm = New MyCrystalReport() 'Crystalreport3

    T = RptForm.ReportDefinition.Sections(0).ReportObjects("TXTCNAME") 'insert your textboxname
    T.Text = DTPTDate.Value

    Hope it works :)