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

MOTOHEBE 2010-04-08 03:24:18
我的报表是把数据库中的所有数据都显示出来了,一打印就全打印了。我想按照查询结果打印,也就是我先查询我想要的数据,然后按照查询后的结果进行报表打印。如何实现?请各位高手指点我!谢谢!
...全文
77 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
MOTOHEBE 2010-04-14
  • 打赏
  • 举报
回复
谁来帮帮我啊!
  • 打赏
  • 举报
回复
cr里加ParameterFields,vb里给value。
这是我用vb调动cr的runtime的部分代码。

Dim crxApp As CRAXDRT.Application
Dim crxRpt As CRAXDRT.Report
Dim crxParamDef As CRAXDRT.ParameterFieldDefinition

Set 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 Next

56 .ExportOptions.DiskFileName = PDFFilePathName
57 .Export False

58 End With
再不行,发到图表区,问阿泰。
https://forum.csdn.net/SList/DotNETReport/
yangxie5201314 2010-04-14
  • 打赏
  • 举报
回复
水晶报表没用过,用的DataReport,查询出来的结果可以用动态RecordSet来做数据源,不知道水晶报表是不是也可以这样

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧