Question

水晶报表弹出 输入值？

paramField.ParameterFieldName = "textQsrq"
' 设置第一个离散值并将其传递给该参数 discreteVal.Value = "12wer"
'discreteVal.Value = textQsrq
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField) ' 将该参数添加到参数字段集合。
paramField = New ParameterField
' 设置参数字段的名称，它必须 ' 和报表中的参数相符。
paramField.ParameterFieldName = "textZzrq" 'rangeVal1.Value = textZzrq
rangeVal1.Value = "asdf"
paramField.CurrentValues.Add(rangeVal1)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
Dim rptExpensiveProducts As New CrystalDecisions.CrystalReports.Engine.ReportDocument reportname = "WDZKMXB.rpt"
rptExpensiveProducts.Load("C:\Inetpub\wwwroot\dggjbb\rpt\" & reportname)
Dim tbCurrent As CrystalDecisions.CrystalReports.En
gine.Table Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
For Each tbCurrent In rptExpensiveProducts.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = computer_name
.UserID = sa_name
.Password = sa_password
.DatabaseName = datebase_name
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

rptExpensiveProducts.SetDataSource(getDS("select * from WD_ZKJLK"))
CrystalReportViewer1.ReportSource = rptExpensiveProducts

Answer 1

我一般使用的是finereport报表制作软件，主要是不想写代码啊~~，这个功能在finereport里面很容易实现的，主要过程如下：

1.制作参数查询界面的步骤

FR报表提供了参数设计界面，让用户快速制作出参数表单界面。制作参数查询界面的步骤如下：

参数布局——设计参数查询界面的样式

设置参数控件的属性及编辑风格——设置参数控件如下拉框、日期、时间等，并且可以修改控件默认值

美化参数界面——设置界面显示位置、背景、控件风格等

2.示例

根据下图我们制作一个简单的查询界面，从而了解参数查询界面的具体制作方法。

2.1打开报表

打开报表：%FR_HOME%\WebReport\WEB-INF\reportlets\doc\Primary\Parameter\Parameter.cpt。

2.2参数布局

按照下图所示，将控件拖至相应的位置，如下：

另：参数界面采用绝对布局方式，因此可以将控件拖至面板中的任何位置。

2.3参数控件编辑风格

默认的参数控件都是文本框，有时如希望使用日期控件来选择日期，或者下拉框直接选择数据，这就需要为参数控件定义编辑风格了。

如将地区控件设为下拉框。选中地区控件，选择控件中的扳手，在下面的对话框中选择控件类型为下拉框：

然后在属性表的基本属性>数据字典中，按照下图设置下拉框的数据：

2.4 保存报表并预览

保存并分页预览便可以看到效果了。

Answer 2

这个也太麻烦了。不如帆软省心啊