809
社区成员
发帖
与我相关
我的任务
分享用vb6的报表设计器，如何实现查询结果的打印？
我现在需要做一个打印程序，打印的数据记录是用户的查询结果，我定义了一个数据环境，command用的是sql语句，sql语句在程序中设定，查询能正确显示结果，可是打印时，总是打印所有的数据，请问，我该怎样定义数据报表的数据源？麻烦各位说的详细一些。谢谢了。。。
...全文
请发表友善的回复…
发表回复
dong 2000-02-29
- 打赏
- 举报
只需将DataReport的数据源设为查询所得的记录集即可。
由于你使用了数据环境，别忘了将DataReport中控件的DataMember属性置空。
dim rst as adodb.recordset
dim sSql as string
sSql = "SELECT [select_list] FROM [table_name] where [condition]"
set rst = new adodb.recordset
rst.open sSql,"provider = ...;data source = ..."
if not rst.eof then
set DataReport.DataSource = rst
DataReport.show
end if
set datareport.datasource = rst
由于你使用了数据环境，别忘了将DataReport中控件的DataMember属性置空。
dim rst as adodb.recordset
dim sSql as string
sSql = "SELECT [select_list] FROM [table_name] where [condition]"
set rst = new adodb.recordset
rst.open sSql,"provider = ...;data source = ..."
if not rst.eof then
set DataReport.DataSource = rst
DataReport.show
end if
set datareport.datasource = rst
