VB.NET'te Crystal Reports String parameter ile liste yazdırma nasıl?

Vatansever

Asistan
Katılım
23 Ağustos 2007
Mesajlar
405
Reaksiyon puanı
1
Puanları
18
Arkadaşlar projemde bazı bilgileri Crystal Reports kullanarak yazdırıyorum ama sorunum şu ben Datagridviewe girilen bütün bilgileri mdb'deki sadece yazdırma amaçlı oluşturduğum bir tabloya yazdırıyorum ve buradan Crystal Reports'a okutuyorum ben mdb dosyasına hiç yazdırmadan datagrid içindeki bilgileri doğrudan Crystal Reports'ta yazdırmak istiyorum aşağıdaki adreste bir Crystal Reports String parameter kullanımı ile ilgili kod var bu kodu kullanarak bir textbox içindeki yada herhangi bir stringi Crystal Reports'ta yazdırabiliyorum güzel ancak datagridview'deki bir sütundaki bilgileri nasıl yazdırırım ben list oluşturup textbox.text yerine koydum değişik şeyler denedim olmadı bu konuda bilgisi olan arkadaş varmı?
http://vb.net-informations.com/crystal-report/vb.net_crystal_report_parameter_string.htm
Kod:
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click

        Dim cryRpt As New ReportDocument
        cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        crParameterDiscreteValue.Value = TextBox1.Text
        crParameterFieldDefinitions =  -
            cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition =  _
            crParameterFieldDefinitions.Item("Customername")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.Refresh()
    End Sub
End Class
 
Üst