vb查询，然后打印报表
用text做搜索，然后把搜索的结果付值给datagrid，现在想把datagrid里面显示的数据通过datareport打印出来。望各位大神给指点迷津，小弟都愁死了。 把Sql语句在模块里用Public声明，这样无论其值怎么变化，其它地方可用，结果是一样的 现在已经把text搜索的结果现在datagrid里面了，如何把datagrid里面的数据通过datareport打印出来呢。 只要把Sql语句记录下来，设置成数据报表的数据源即可
同样的Sql语句得到的记录集是一样的啊一样的
rs.Open "select * from employee where like '%" + Text1.Text + "%'", cnn, adOpenKeyset
Set DataGrid1.DataSource = rs
DataReport1.show
这是我的代码，能给修改一下，或者给出个例子来吗。 rs.Open "select * from employee where like '%" + Text1.Text + "%'", cnn, adOpenKeyset
Set DataGrid1.DataSource = rs
set DataReport1.DataSource = rs
DataReport1.show
怎样设置上边的内容。
在模块里面声明
Public SqlStr as String
在Text1_Change里面
SqlStr ="select * from employee where like '%" + Text1.Text + "%'"
在数据报表显示之前
使用这个SqlStr 获得记录集 能不能给点代码，详细的代码。 用VBReport报表设计终结，纯文本文档做报表，把数据库和要求发给我，我帮你写一个
写到www.xmiso.com/VBReport 学习一下，好长时间不玩这个了！ 可以网上找个第三方控件
问题就解决了 能说的具体点嘛 1. 在你的工程里添加一个 Datareport;
2. 把自己需要用报表显示出来的数据拖入Datareport中。比如，你要在报表中显示某一条记录的时间，就在报表设计器的Detail模块中加入一个RptTextBox控件(左边工具栏),然后把这个控件的Datafield属性设置成你获取的记录集(rs)里时间字段的名字，其他以此类推。
3. 把需要的数据都拖进来以后，按照你需要的格式进行排版以后就可以使用了 我是用水晶报表设计报表，就象２楼说的那样，是用rs来做数据源的。
补充：VB , 数据库(包含打印，安装，报表)
