DataReport是否可以实现打印经条件筛选后的数据？

[emerson3000]

DataReport是否可以实现打印经条件筛选后的数据？而不是打印整个数据库中的所有数据。
这个功能水晶报表可以实现，不知VB6.0自带的DataReport是否可以实现？

[gpo2002]

可以，在连结的ado源作条件筛选就可以了

[emerson3000]

能与DataReport相连的是否只有DataEnvironment？
DataReport可以和ado相连吗？
如何通过DataEnviroment筛选数据？虽然可以通过DataEnviroment中的SQL查询，但一些具体
的查询条件可以动态地改变吗？如何应用？

[Alicky]

可能。
看你怎么做了。

[emerson3000]

难道只有水晶报表才可以实现在这功能？

[dxqylzg]

On Error Resume Next
Set adoRecordsetX = New ADODB.Recordset
adoRecordsetX.Fields.Append "CH", adBSTR
adoRecordsetX.Open
STRSQL = "select * from ZDYK_TAB where BH= XXX"
set gRS = gDB.OpenResultset(STRSQL)
If Not gRS.EOF Then
adoRecordsetX.Fields.Item(0).Value = ISNULL2SPACE(gRS!CH)
End If
gRS.Close
adoRecordsetX.Update
Set DataReport.DataSource = adoRecordsetX
DataReport.Show 1
adoRecordsetX.Close