请问各位高手vb如何将查询结果输入水晶报表，然后实现打印？

Question

我的报表是把数据库中的所有数据都显示出来了，一打印就全打印了。我想按照查询结果打印,也就是我先查询我想要的数据，然后按照查询后的结果进行报表打印。如何实现？请各位高手指点我！谢谢！

Answer 1

水晶报表没用过，用的DataReport，查询出来的结果可以用动态RecordSet来做数据源，不知道水晶报表是不是也可以这样

Answer 2

cr里加ParameterFields，vb里给value。
这是我用vb调动cr的runtime的部分代码。Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim crxParamDef As CRAXDRT.ParameterFieldDefinitionSet crxApp = New CRAXDRT.Application
Set crxRpt = crxApp.OpenReport(ReportPathName)
29        crxRpt.ExportOptions.FormatType = crEFTPortableDocFormat
30        crxRpt.ExportOptions.DestinationType = crEDTDiskFile
31        crxRpt.EnableParameterPrompting = False
        crxRpt.PaperSize = crPaperA4
With crxRpt
        
34        For Each crxParamDef In .ParameterFields
35            With crxParamDef
36                Select Case .Name
                    Case "{?Name}"
38                        .ClearCurrentValueAndRange
40                            .AddCurrentValue str（name）
53                End Select
54            End With
55        Next56        .ExportOptions.DiskFileName = PDFFilePathName
57        .Export False
    
58    End With
再不行，发到图表区，问阿泰。
http://forum.csdn.net/SList/DotNETReport/