关于报表打印问题，请高手指教

Question

我用DataEnvironment作为数据源。取名Data1，连接名为conn,命令名为CmdDbcg。 报表名为 DrDbcg打印代码为：
   Data1.Conn.Open
   Data1.Conn.Execute "select * from 单板采购 where 单号='" & TxtDh.Text & "'"
   DrDbcg.Show 1
   Data1.Conn.Close但报表打印出来却是所有内容，并不是我设计的条件“单号”='" & TxtDh.Text & "'请问高手是否能有什么办法动态的给命令CmdDbcg的commandtext属性赋值，或者是还有什么好的办法能实现？特别感谢！

Answer 1

Data1.Conn.Open
Data1.commands("cmddbcg")= "select * from 单板采购 where 单号='" & TxtDh.Text & "'"
DrDbcg.Show 1
Data1.Conn.Close

Answer 2

你报表用的数据库链接是：Data1.Conn吗？