datareport的查询问题

Question

数据报表里可增加一些新的计算和合计的字段
但我想实现，当程序运行时，报表能按照输入的一些查询条件来显示数据，例如设置一个TEXT控件，输入abc，此时报表中输出的数据是“select * from table where name=abc”
实际上我就是不知道如何把查询条件与输出的数据结合起来
就像我用DATAGRID控件绑定ADODC控件时，更改了ADODC的RECORDSOUCE，那么DATAGRID中的数据也就有了响应的变化望解答一下，谢谢

Answer 1

在数据环境设计中,建一个command,属性中设为a
            Dim sqltxt As String
            Dim strid As String
            Dim V_data As DataE
            Dim V_conn As Connection
            Dim V_cmd As Command
            strid = Trim(txtid.Text)
            Set V_data = New DataE
            Set V_conn = V_data.conn1
            V_conn.Open
            sqltxt = "select * from tbl_health where id = '" & strid & "'"
            V_data.Commands("cmdhealth").CommandText = sqltxt
            V_data.Commands("cmdhealth").Execute
            rptHealth.PrintReport False

Answer 2

在数据环境设计中,建一个command,属性中设为SQL语句
            Dim sqltxt As String
            Dim strid As String
            Dim V_data As DataE
            Dim V_conn As Connection
            Dim V_cmd As Command
            strid = Trim(txtid.Text)
            Set V_data = New DataE
            Set V_conn = V_data.conn1
            V_conn.Open
            sqltxt = "select * from tbl_health where id = '" & strid & "'"
            V_data.Commands("cmdhealth").CommandText = sqltxt
            V_data.Commands("cmdhealth").Execute
            rptHealth.PrintReport False

Answer 3

在数据环境设计中,建一个command,属性中设为SQL语句
但是一定要注意，在每一次预览报表时
  Unload DataEnvironment1
  DataEnvironment1.Commands("Command1").Parameters("a") = Text1.Text
  DataReport1.Show
一下，要不然报表显示的结果是不更新的，我当时就遇到了这样的问题。

Answer 4

谢谢大家
我设计数据环境中在命令cmdhealth下还有一子命令cmdson
运行程序时,有如下错误
从当前数据资源中取得行值失败运行