提供报告（由 vb6.0 中的水晶报告 8.5 定义）以显示特殊记录的方法？答案

【问题标题】：Ways to feed a report (degined by crystal reports 8.5 in vb6.0) to show a special record?提供报告（由 vb6.0 中的水晶报告 8.5 定义）以显示特殊记录的方法？
【发布时间】：2010-11-20 04:06:42
【问题描述】：

我是 Crystal 报表的新手，现在我在 vb6 中通过 Crystal 报表 8.5 设计了一个报表，并希望显示该报表。

我已从数据库中的视图中获取字段数据，但您知道视图有几条记录。

我想通过主键选择一条特殊记录，主键是我表单上文本框的值。

【问题讨论】：

标签： vb6 crystal-reports

【解决方案1】：

在报告中添加一个参数，并在选择专家中使用该参数。然后，在加载前对报表文档调用 SetParameterValue。

【讨论】：

你能给我发个例子吗？

【解决方案2】：

为什么不在你的 vb 表单中做一个动态 sql，从文本框中选择值

 strSql =  "select blah from blah where blah ='" + txtBox.text +"'"

然后使用然后在 ado.recordset 中执行查询并将其传递给水晶报表应用程序报表对象，使用 ttx 文件来定义数据等...

这样做您只需要担心 vb 表单中的动态 sql 以进行参数选择。其余的可以为任何报告模板化。

这里有一些代码让你开始

Set AdoRs = New ADODB.Recordset
Set AdoRs = conn_rep.Execute(strSql)

Set CrRep = CrAppl.OpenReport(App.Path + "\crystal\" + CryReportName)

CrRep.Database.Tables(1).SetDataSource AdoRs, 3
CRViewer1.ReportSource = CrRep
CRViewer1.EnablePrintButton = True

CRViewer1.EnableExportButton = True
CRViewer1.EnablePrintButton = True
CRViewer1.viewReport

【讨论】：