很简单的两句代码，各位帮忙看看好吗？（报表数据源连接问题，在线等待佳音！）

Question

Deshebei.rscommand1
rptshebei.DataSource 是要打印的数据集合，这个集合通过数据环境的一个记录集提取记录得到rptshebei.DataSource是数据环境的一个记录集而不是数据环境本身

Answer 1

to mousean(幻想无限) :你的意思是？
我将 rptshebei.DataSource = Deshebei改成了：
Set rptshebei.DataSource = Deshebei
上面的错误就没有了，但是弹出的报表是空表，提示错误变为：从当前数据资源中取得行值失败，请问什么原因？（报表方面是否要做什么工作？）
另外：我的报表上要添加控件吗。但是我的查询打印是动态的，请问报表也要进行动态的设置吗？如果要，那么如何实现动态设置呢？

Answer 2

if Deshebei.rscommand1.state=adstateopen then
   Deshebei.rscommand1.close
end if
Deshebei.rscommand1.datasource="select * from yourtable"''提取要打印的记录
Deshebei.rscommand1.open 

Answer 3

我也感觉不太对头哟：），谢谢你帮忙再看看！我是要动态的根据形成条件查询，然后查询出的结果在datagrid控件显示出来，最后点“打印”按扭进行打印？

Answer 4

还是要使用我的方式：
set rptshebei.DataSource = Deshebei.rssearch 
在SET 前，Deshebei.rssearch 要先根据你的strSlqs提取到记录
再试试
呵呵,应该没什么问题了

Answer 5

去掉：rptshebei.DataMember = search

Answer 6

tomousean(幻想无限) :  不行呀，set rptshebei.DataSource = Deshebei.rssearch 按你的说法做了之后他提示：要求对象，光标停在rssearch上

Answer 7

search是你建好的命令？？？？

Answer 8

有没有MSN帐号？？
MSN: [email protected]

Answer 9

没有MSN帐号：（！，只有OICQ：33565728和邮箱[email protected]
search 是我建好的命令，在它的属性窗口里的SQL选项文本框内我放的是strSqls
它是在执行查询时生成的SQL查询条件（string变量），我在查询之后，这个变量应该把值传给了search

Answer 10

不可能
把这个打印窗体和datareport发我信箱，我帮你看看
[email protected]

Answer 11

在DataEnviroment1中添加一个command,写代码    
DataEnv.Commands(1).CommandText = "select * from 库名"在datareport的属性里给出datasource和datamember,就可以了。
我也正在做这种查询报表，还有什么问题可以交流一下。

Answer 12

to dai_er(daier) ：
  你做的也是动态查询吗，做出来了吗？能否给点代码实例我看看呢？谢谢！

Answer 13

我帮你修改好了，发到你的信箱了
主要是你的search属性设置不对，没有选中“返回记录集”，不属于数据环境的记录集，当然得不到记录
看看我帮你修改的代码，还有打印的report，帮你做了一点，主要让你看看效果和方法，真正完成还是要靠你自己希望早日解决问题
^_^！

Answer 14

应该用记录集对象和报表对象绑定这才是报表的正确方法代码如下:
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
rdt.Open "select a from 表1 where b='b'", cnn, adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = rdt
DataReport1.Sections.Item("Section1").Controls.Item("Text1").DataField = rdt.Fields.Item(0).Name
DataReport1.Show

Answer 15

to AM_WJ(AM) :
   DataReport1.Sections.Item("Section1").Controls.Item  ("Text1").DataField = rdt.Fields.Item(0).Name 你这段代码是设置报表，使其将查询出来的数据库结果显示在报表中吗？

Answer 16

to swots(欲知) 你发的代码我帮你修改了，到信箱看看
可以实现你要的效果了