txtboxの値をフォームからクリスタルレポートに渡して印刷するにはどうすればいいですか？

Question

私は、テキストボックスとdatetimepickerを持つ "Create Checkフォーム"を持っています。 form1（CreateCheckForm）では、ユーザーはテキストボックスPayee, Amount_in_Figureとdateを入力します。これらのテキストボックスは、テキストボックスを埋めた直後にbtnButtonをクリックした後に印刷されます。今、私はテキストボックスの値をクリスタルレポートで他のフォームに渡したいので、まだデータベースに保存せずに印刷することができますが、ボタンをクリックするとクリスタルレポートに何も表示されません。ただ、空白のページが..以下は私のコードです：

これは、Crystalレポート（Form2の）を持つフォームの背後にあるコードです：

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load 
    Dim Report1 As New CrystalReport1 

     Report1.SetParameterValue("amtinwords", frmCreateCheckURC.txtAmtInWords.Text) 
     CrystalReportViewer1.ReportSource = Report1 
Report1.SetParameterValue("issuedate", frmCreateCheckURC.dtpDate.Text) 
     CrystalReportViewer1.ReportSource = Report1 
Report1.SetParameterValue("?amtinfigure", frmCreateCheckURC.txtAmtInWords.Text) 
     CrystalReportViewer1.ReportSource = Report1 
Report1.SetParameterValue("?payee", frmCreateCheckURC.txtAmtInWords.Text) 
     CrystalReportViewer1.ReportSource = Report1 
    End Sub 

パラメータ名はamtinwords,issuedate,amtinfigure,amtinwords,payee

Answer 1

渡すために、コードの下にみていますForm1からForm2をへのデータ、その後

あなたのコードでCrystalレポートにデータを渡すためにしようとForm1が

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim sTitle As String 
    Dim sText As String 
    sTitle = TextBox1.Text 
    sText = TextBox2.Text 
    Dim frm As New Form2(sTitle, sText) 
    frm.Show() 
End Sub 

Form2の

Public Sub New(ByVal sTitle As String, ByVal sText As String) 
    InitializeComponent() 
    Me.Text = sTitle 
    Me.Label1.Text = sText 
End Sub 

Answer 2

私は私の問題を解決することができました。唯一の問題は、私が間違った場所とフォームにコードを掲載したことです。コードはbtnButtonのものであったはずです。