vb.net - 我的水晶报表没有过滤运行时 vb.net 中的记录

Question

   Private Sub Print_insurance_due_sum_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CrystalReportViewer1.ReportSource = Nothing
        Dim cryRpt As New ReportDocument
        cryRpt.Load(Application.StartupPath + "/ReportInsuranceDueSummary.rpt")
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
     Dim crParameterValues As New ParameterValues
    Dim crParameterDiscreteValue As New ParameterDiscreteValue
    crParameterDiscreteValue.Value = insid
    crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
    crParameterFieldDefinition = crParameterFieldDefinitions.Item("insid")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue1)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()

这是我的代码，参数正在传递给我的 CrystalReportViewer1，但问题是记录没有根据我在报告 Anyyy helppp 中的条件过滤！！？？谢谢你