如何使用 vb.net 在 crystal 报告 header 部分打印文本框值？

Question

我有 crystal 报告！我想在 crystal 中打印文本框的输入值，报告我的代码是，

  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 参数的参数值！我不想要这个提示！如何解决这个问题呢？在此先感谢开发者。

Answer 1

我认为您需要在设置 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

如何使用 vb.net 在 crystal 报告 header 部分打印文本框值？

how to print textbox value in crystal report header section using vb.net?

vb.net

ms-access-2007

crystal-reports