哪位高手知道如何使用VB带的数据报表功能打印随机查询的记录集？一定给分！！！

Question

不使用dataenvironment，直接给datareport1.datasource赋值为一个你随机查询出的ADO记录集

Answer 1

vb带的数据报表哪里找?crystal report吗?

Answer 2

to 成心：我给datareport1.datasource赋值时，下拉列表中只有几个dataenvironment，而没有ADO控件。我尝试代码中加入datareport.DataSource = Adodc1或datareport.DataSource = Adodc1.RecordSource,运行时均提示"找不到方法或数据成员",试验以失败结束，请问你是怎么办的呢？

Answer 3

给出一个例子：
  strSQL = " SHAPE {select user from sale where shopid=" & "'" + ShopID + "'" & " and saledate>=" & "#" & saledate1 & "#" & " and saledate<=" & "#" & saledate2 & "#" & "  group by user}  AS Command4 APPEND ({select saledate,user,sum(qty*price) as amount from sale where shopid=" & "'" + ShopID + "'" & " and saledate>=" & "#" & saledate1 & "#" & " and saledate<=" & "#" & saledate2 & "#" & " group by saledate,user}  AS Command5 RELATE 'user' TO 'user') AS Command5"
    DataEnvironment1.Connection4.Open strcnn
    DataEnvironment1.rsCommand4.Open strSQL, DataEnvironment1.Connection4    DataReport5.Show vbModal
    DataEnvironment1.Connection4.Close

Answer 4

我有解决的方案
首先建立一个CMD
然后设置它的属性为“返回RECORDSET”
然后用DE.CN.rsCMD.OPEN "select * FROM 某表 where ..."
即可。

Answer 5

如果是用crystal report的话你可以把查询的语句赋值给CrystalReport.SelectionFormula

Answer 6

请问crystal report是一个控件？如是，哪有下载？

Answer 7

我也想了解,datasource我也碰到问题。

Answer 8

to 秋水长天与小何：我按您二位的方法实验时，出现两个问题：1有时提示strcnn变量未定义，
2"where..."条件子句中其他运算符都可带，独独不能带"like"运算符。请教二位，这是什么原因？多谢帮助！！！

Answer 9

呵呵，这个我JI道DI，呵呵
你要先把数据环境关闭，然后再打开，你刚才给数据报表赋的SQL语句就生效了，呵呵，：）

Answer 10

to balloon : 我试了你的方法，好像不行啊！

Answer 11

同意tangbei(成心)　
同意3circles(阿酷)　

Answer 12

TO幻想者
今天我又来了，
看见你的问题还没解决
心里替你着急啊
其实问题很简单嘛
把你的有问题的程序发个给我，或者告诉我你要做什么（只把数据库发给我）？
我给你做个示例好了。
来信[email protected]

Answer 13

你可以用一个备用data控件将随即查询结果放入其datasource中（select 字段列表，form 表 
where 条件）！然后用printer集合的print 方法！注意！要打印出比较理想的效果！还要设计
好的打印算法！提示：使用scale属性！

Answer 14

to shiningxing:您的办法中好象并没有涉及VB自带的数据报表工具啊!!

Answer 15

vb带的报表工具很是不好使  你还是用PRINTER 编一个吧  可以一劳永逸