2015-04-27 52 views
0

我有水晶报告!对,我要打印水晶报表我的代码是文本框输入的值,如何使用vb.net打印水晶报表标题部分的文本框值?

Dim report As New CrystalDecisions.CrystalReports.Engine.ReportDocument 
    Dim xs As String 
    xs = salfdte2.Text 
    Dim cmd1 As OleDbCommand = New OleDbCommand("SELECT * from product",con) 
    myDA = New OleDbDataAdapter(cmd1) 
    myDataSet = New DataSet() 
    myDA.Fill(myDataSet, "product") 
    report.Load(Application.StartupPath & "\saledtewserpt.rpt") 
    report.SetParameterValue("fdte", xs) 
    'the above line is my pproblem 
    report.SetDataSource(myDataSet.Tables("outwardp")) 
    saledtereport.CrystalReportViewer1.ReportSource = report 
    saledtereport.ShowDialog() 

它工作得很好,但在运行时的报告要求我为fdte参数输入参数值!我不想要这个提示!如何解决这个问题呢?在此先感谢开发人员。

回答

0

我想你需要在设置ReportViewer.ReportSource之后设置ReportViewer上的参数。

saledtereport.CrystalReportViewer1.ReportSource = report 
saledtereport.ParameterFieldInfo.Item("fdte").CurrentValues.Add(xs) 

在另一方面,如果你只是想设置一个名为myTextBox文本框的值,你也许可以做到像

Dim textBox As CrystalDecisions.CrystalReports.Engine.TextObject 
textBox = Report.ReportDefinition.ReportObjects.Item("myTextBox") 
textBox.Text = ws 
+0

谢谢你这么多您的宝贵回复先生!第二个方法很好用,先生! – Rkmunusamy

+0

也在那里,我发现这个问题的另一个资源! http://www.codeproject.com/Questions/454333/passing-parameters-to-crystal-report-through-vb-ne – Rkmunusamy