Vb.net 无法使用crystal报表中的日期显示正确的数据

Vb.net 无法使用crystal报表中的日期显示正确的数据,vb.net,ms-access,crystal-reports,Vb.net,Ms Access,Crystal Reports,我已经编写了使用crystal reports显示数据的代码。我已经设置了参数字段,但它似乎运行不正常。以下是一个例子: 数据库 用于显示报告的条件: 开始日期=1/12/2012 结束日期=2012年12月15日 此处仅显示2012年12月13日-D的数据,但带有 开始日期=1/12/2012 截止日期=2012年12月9日 它显示所有数据: 1/12/2012-A 5/12/2012-B 9/12/2012-C 13/12/2012-D 以下是我的vb.net代码:

我已经编写了使用crystal reports显示数据的代码。我已经设置了参数字段,但它似乎运行不正常。以下是一个例子:

数据库

用于显示报告的条件: 开始日期=1/12/2012 结束日期=2012年12月15日

此处仅显示2012年12月13日-D的数据,但带有

开始日期=1/12/2012 截止日期=2012年12月9日

它显示所有数据:

   1/12/2012-A
   5/12/2012-B
   9/12/2012-C
   13/12/2012-D
以下是我的vb.net代码:

    Dim reader As OleDbDataReader = myCommand.ExecuteReader
    If reader.Read = True Then
        cryRpt = New ReportDocument()
        cryRpt.Load("C:\Users\user\Documents\LabSystem\LabSystem\Report\Spec.rpt")

        crParameterDiscreteValue.Value = txtDateFrom.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions("fromDate")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        crParameterDiscreteValue.Value = txtDateTo.Text
        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions("toDate")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        CrTables = cryRpt.Database.Tables
        Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
        For Each crTable In CrTables

            crtableLogoninfo = crTable.LogOnInfo
        Next
        crtableLogoninfo.ConnectionInfo = crConnectionInfo
        crTable.ApplyLogOnInfo(crtableLogoninfo)


        CrystalReportViewer1.ReportSource = cryRpt
        CrystalReportViewer1.RefreshReport()

    Else
        MsgBox("No records exists")
    End If
    reader.Close()
Catch ex As Exception
    MsgBox("Error in select query: " + ex.Message)
End Try
以下是crystal report中的条件:

{1BK.edate}=({?toDate} TO {?fromDate})
我会按以下顺序尝试:

将选择条件更改为{1BK.edate}={?fromDate}到 {?toDate} 将选择条件更改为{1BK.edate}>={?fromDate}
和{1BK.edate}=+{fromDate}+和{1BK.edate}当crystal报告中的更改参数字段

日期

那么情况是


{1BK.edate}={?fromDate}到{?toDate}

edate的数据类型是什么?我使用日期/时间。使用ms Access在CR中运行报告时是否正常工作?
{1BK.edate}=({?toDate} TO {?fromDate})