C#中的Crystal Report 如何设置带参数的SQL语句，如何将参数传入 大侠都帮帮忙阿

Question

Private Sub BindData(ByVal SchoolID As Integer, ByVal SchoolAcadLevelID As Integer, ByVal SchoolAdminClassID As Integer)
       repDoc.Load("c:\inetpub\wwwroot\WebReport\StudentParentEmloyment.rpt")
        repDoc.Refresh()        Dim crConnInfo As New ConnectionInfo()
        With crConnInfo
            .ServerName = ""
            .DatabaseName = ""
            .UserID = "sa"
            .Password = ""
        End With        Dim crDatabase As Database = repDoc.Database
        Dim crTables As Tables = crDatabase.Tables
        Dim crTable As Table
        For Each crTable In crTables
            Dim crLogOnInfo As TableLogOnInfo = crTable.LogOnInfo
            crLogOnInfo.ConnectionInfo = crConnInfo
            crTable.ApplyLogOnInfo(crLogOnInfo)
        Next
        '**************************************************************************
        ' Pass the Stored Procedure parameter to the report
        '**************************************************************************
        'Get the collection of parameters from the report
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions = repDoc.DataDefinition.ParameterFields        'Access the specified parameter from the collection
        '***********************
        'Add parameter @SchoolID
        'Always add the parameter
        '***********************
        Dim crParameterFieldDefinition As ParameterFieldDefinition = crParameterFieldDefinitions.Item("@SchoolID")
        Dim crParameterValues As ParameterValues = crParameterFieldDefinition.CurrentValues
        Dim crParameterDiscreteValue As ParameterDiscreteValue
        crParameterDiscreteValue = New ParameterDiscreteValue()
        crParameterDiscreteValue.Value = SchoolID
        'Add the current value for the parameter field
        crParameterValues.Add(crParameterDiscreteValue)
        'The current parameter values must be applied for the parameter field.
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
        '********************************
        'Add parameter @SchoolAcadLevelID
        '********************************
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("@SchoolAcadLevelID")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterDiscreteValue = New ParameterDiscreteValue()
        crParameterDiscreteValue.Value = SchoolAcadLevelID
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
        '********************************
        'Add parameter @SchoolAdminClassID
        '********************************
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("@SchoolAdminClassID")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        crParameterDiscreteValue = New ParameterDiscreteValue()
        crParameterDiscreteValue.Value = SchoolAdminClassID
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)    End Sub