请问DataReport里参数查询怎么用？

Question

DataReport用DataEnvironment1连，要返回特定记录，在DataEnvironment1中要用参数查询，参数在属性页的参数页中定义为para1,其值想用Inputbox()输入，在“值”框中填没用。怎么办？

Answer 1

在Button Click事件中加入如下代码：
dim str as string
str = Inputbox()
DataEnvironment1.Command1 str
DataReport1.Show

Answer 2

Dim rst As New ADODB.Recordset
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show