自己跟自己开了个玩笑啊,呵呵 水晶报表就是这样,把数据完整加载后,才能很好的工作,建议你该用其他的报表,例如: Active Report
Dim report As TheRpt = New TheRpt report.SetDataSource(aDataSet)' 为参数字段赋值 Dim paramFields As New CrystalDecisions.Shared.ParameterFields Dim paramField As New CrystalDecisions.Shared.ParameterField Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue paramField.ParameterFieldName = "你的参数字段名" discreteVal.Value = "你想传给参数字段的值" paramField.CurrentValues.Add(discreteVal) paramFields.Add(paramField) CrystalReportViewer1.ParameterFieldInfo = paramFields CrystalReportViewer1.ReportSource = report
ParameterFields paramFields = new ParameterFields (); ParameterField paramField = new ParameterField (); ParameterDiscreteValue discreteVal = new ParameterDiscreteValue ();
水晶报表就是这样,把数据完整加载后,才能很好的工作,建议你该用其他的报表,例如:
Active Report
report.SetDataSource(aDataSet)' 为参数字段赋值
Dim paramFields As New CrystalDecisions.Shared.ParameterFields
Dim paramField As New CrystalDecisions.Shared.ParameterField
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue paramField.ParameterFieldName = "你的参数字段名"
discreteVal.Value = "你想传给参数字段的值"
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields CrystalReportViewer1.ReportSource = report
ParameterField paramField = new ParameterField ();
ParameterDiscreteValue discreteVal = new ParameterDiscreteValue ();
paramField.ParameterFieldName = "参数名称";
discreteVal.Value = "参数值";
paramField.CurrentValues.Add (discreteVal);
paramFields.Add(paramField);
Rpt=new ReportDocument();
Rpt.Load(@"报表路径");
crystalReportViewer1.ParameterFieldInfo = paramFields;
crystalReportViewer1.ReportSource =Rpt;