问各位高手，在VS.NET报表中怎样接收窗体输入框中的数据。

Question

Dim p1 As New ParameterField()
        Dim p2 As New ParameterField()
        Dim p3 As New ParameterField()
        Dim v1 As New ParameterValues()
        Dim v2 As New ParameterValues()
        Dim v3 As New ParameterValues()        Dim pd1 As New ParameterDiscreteValue()
        Dim pd2 As New ParameterDiscreteValue()
        Dim pd3 As New ParameterDiscreteValue()
        pd1.Value = Session("_clitfundid")
        pd2.Value = Session("_warename")
        pd3.Value = Session("_clientcode")        v1.Add(pd1)
        v2.Add(pd2)
        v3.Add(pd3)
        p1.CurrentValues = v1
        p2.CurrentValues = v2
        p3.CurrentValues = v3
        Dim ds As New Dataset1()        Dim fig As ConfigurationSettings
        Dim con As New SqlClient.SqlConnection(fig.AppSettings("ConnStr"))
        Dim str As String = "pPrintForkhbj"
        Dim ad As New SqlClient.SqlDataAdapter(str, con)
        ad.SelectCommand.CommandType = CommandType.StoredProcedure        ad.SelectCommand.Parameters.Add("@ClitFundID", Session("_clitfundid"))        ad.Fill(ds, "zx0151")
        Dim cy As New CrystalReport2()
        cy.DataDefinition.ParameterFields.Item("clientcode").ApplyCurrentValues(v1)
        cy.DataDefinition.ParameterFields.Item("warename").ApplyCurrentValues(v2)
        cy.DataDefinition.ParameterFields.Item("clientname").ApplyCurrentValues(v3)
        cy.SetDataSource(ds)
        cr.ReportSource = cy