0

Form1有一个button1和一个texbox1，当我点击时button1，form2会在上面加载水晶报告并显示我放的数据textbox1。已经创建了Parameters FieldcrTextBox并放入水晶报告中。如何将textbox1.text值传递给crTextBox.

4

4 回答 4

3

在 Form2 中添加以下代码

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim Report1 As New CrystalReport1

    Report1.SetParameterValue("crTextBox", Form1.TextBox1.Text)
    CrystalReportViewer1.ReportSource = Report1
End Sub
于 2013-07-14T13:22:38.520 回答
3

您必须为此使用水晶报表的参数字段......

1.在水晶报表中打开字段资源管理器窗口。

2.转到参数字段。

3.右键单击“参数字段”单击“新建”

4.在弹出窗口中为您的参数命名并为其提供数据类型。名称为 mytextBoxValue，数据类型为字符串。

5. 参数字段[mytextBoxValue] 将添加到参数字段下...将该字段拖到您的报告中，并放置在您要显示文本框值的位置。

6.现在在文件后面的代码中编写以下代码，将您的 TextBox 值传递给此 Crystal 报表参数字段。

Dim txtValue As String=TextBox1.Text

将 myReport 调暗为新 CrystalReport1

myReport .SetParameterValue("mytextBoxValue", txtValue )

于 2014-09-20T07:01:38.120 回答
0

你应该写这样的东西：

 Dim rpt as New ReportDocument
 'rpt.Load("file.rpt") ...
 'rpt.SetDatasource() ...
 rpt.DataDefinition.FormulaFields.Item("MyFormula").Text = textbox1.text
于 2013-07-14T02:11:31.273 回答
0 
    'this code works fine for me        

    Dim CrxReport As New cm_Detallado_Partes_vs
    Try
        Cursor.Current = Cursors.WaitCursor

        CrystalReportViewer1.ReportSource = CrxReport

        'the formula must be the same as it is used in CR
        CrxReport.DataDefinition.RecordSelectionFormula = "{tpresupuesto.codigo} = '18-0004'"

        CrystalReportViewer1.ShowExportButton = True
        CrystalReportViewer1.ShowPrintButton = True
        CrystalReportViewer1.ShowGroupTreeButton = True

        CrystalReportViewer1.Zoom(100)
        Cursor.Current = Cursors.Default

    Catch ex As Exception
        MsgBox(ex.ToString & vbCrLf & ex.Message & vbCrLf & ex.StackTrace)
    End Try
于 2018-09-05T19:43:11.773 回答