1188
社区成员
100分请教水晶报表高手
我现在用水晶报表9+VB6.0做报表,请问:
连接的ACCESS数据库有20个字段,但每次参与报表设计的字段不确定,要根据用户的选择决定,
这样就不能利用事先作好的模板了,我怎样才能利用代码编程动态的选择字段,动态的设计报表呢?
这种制作报表的方法在"水晶报表9+VB.NET"中有很多介绍,但关于用VB6.0如何实现的我一直没找到,
曾经用人告诉我在VB中不能实现,不知道是不是真的
请问 在VB6.0中到底能不能实现,能实现的话,又怎样实现呢?
请各位高手赐教!!!!!!!!!!
我在线等待,先谢谢了!
连接的ACCESS数据库有20个字段,但每次参与报表设计的字段不确定,要根据用户的选择决定,
这样就不能利用事先作好的模板了,我怎样才能利用代码编程动态的选择字段,动态的设计报表呢?
这种制作报表的方法在"水晶报表9+VB.NET"中有很多介绍,但关于用VB6.0如何实现的我一直没找到,
曾经用人告诉我在VB中不能实现,不知道是不是真的
请问 在VB6.0中到底能不能实现,能实现的话,又怎样实现呢?
请各位高手赐教!!!!!!!!!!
我在线等待,先谢谢了!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fxj331072 2006-03-20
CrystalReport1设计器左上角选：数据字段—数据专家—创建新连接-OLEDB（ADO）自己设置一下数据库—把command选到表里—编辑command—把SQL语句写在左边的框里（不要加数据库以外的，在底下代码里加），然后把command里的字段拖到设计器上。
打印窗体里：
‘声明
Dim m_Report As New CrystalReport1 ’你的设计器
Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset
Option Explicit
Private Sub Form_Load()
On Error Resume Next
Dim sql As String
Dim strConnect As String
' Create and bind the ADO Recordset object
Set m_Connection = New ADODB.Connection
Set adoRS = New ADODB.Recordset
' Open the connection
strConnect = JetOLEDB ’你的连接串
m_Connection.Open strConnect
sql = "select Instore.ProId as 产品编号,ProName as 产品名称,Quantity as 数量,Hand as 经手人,InstoreCode as 票号,Instore.Indate as 日期 From Instore Join Product on dbo.Instore.ProId=dbo.Product.ProId where Instore.Indate between '" + Str(FrmInstoreQuery.DTP1.Value) + "' and '" + Str(FrmInstoreQuery.DTP2.Value) + "' and " & b & " = '" + FrmInstoreQuery.Text1.Text + " '"
adoRS.Open sql, m_Connection, adOpenDynamic, adLockBatchOptimistic ‘这里是打印的记录源
m_Report.Database.SetDataSource adoRS
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
End If
打印窗体里：
‘声明
Dim m_Report As New CrystalReport1 ’你的设计器
Dim m_Connection As ADODB.Connection
Dim adoRS As ADODB.Recordset
Option Explicit
Private Sub Form_Load()
On Error Resume Next
Dim sql As String
Dim strConnect As String
' Create and bind the ADO Recordset object
Set m_Connection = New ADODB.Connection
Set adoRS = New ADODB.Recordset
' Open the connection
strConnect = JetOLEDB ’你的连接串
m_Connection.Open strConnect
sql = "select Instore.ProId as 产品编号,ProName as 产品名称,Quantity as 数量,Hand as 经手人,InstoreCode as 票号,Instore.Indate as 日期 From Instore Join Product on dbo.Instore.ProId=dbo.Product.ProId where Instore.Indate between '" + Str(FrmInstoreQuery.DTP1.Value) + "' and '" + Str(FrmInstoreQuery.DTP2.Value) + "' and " & b & " = '" + FrmInstoreQuery.Text1.Text + " '"
adoRS.Open sql, m_Connection, adOpenDynamic, adLockBatchOptimistic ‘这里是打印的记录源
m_Report.Database.SetDataSource adoRS
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = m_Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
End If
水晶报表是否能够动态增加列
打算使用水晶报表做一份报表，显示的数据有点特殊，即要显示的列数不是固定的，有可能这次产生的数据时5列，下次产生的数据时6列，不知道能否使用水晶报表实现。【原创】动态（万能）水晶报表：任意表，任意列...
水晶报表使用经验总结 转自 http://blog.csdn.net/louisp/archive/2005/10/27/517621.aspx 资料：Asp.Net中使用水晶报表（上）www.dotnet8.com 2002-9-6 DotNet吧 这篇文章教你如何在.Net Web应用中使用水晶报表，也可以让你在学习...
请教下,关于.net的水晶报表`也是弄了好久了 首先声明下,这个是关于winForm的程序~刚建立水晶报表时,我没用向导,直接建了一个空白报表~建了一个窗体后,加入CrystalReportViewer 命名为CRViewer,新建一个报表，报表名为rptNormal!然后在窗体的Load()事件中加入...
一个水晶报表问题——水晶报表怎么制作一张A4纸发票三联打印？不是套打
本人新手，初学水晶报表，目前遇到如下问题，无法解决，搜索了一些帖子，仍然很迷惑，特向各位前辈请教。
想实现的功能如下图所示,
[img=...
水晶报表Q&A 水晶报表Q&A1、水晶报表下关于表格线隐藏的问题Q：首先，建立Rpt文件，我是要做套打，所以在Rpt文件上画了些线，框还有文字，浏览的时候，通过更改Rpt字段值的办法，初步实现数据的读取，可是当我点打印的时候，问题...
水晶报表 求和;用 公式字段 进行求和！ 最近做水晶报表遇到个水晶报表 求和问题，在CSDN请教了下，谢谢xwdd129(高手就是:不出手) ( 两星(中级)) 信誉：104 的帮忙！-------------------------------水晶报表 求和用 公式字段 进行求和！！格式：---------...
CSDN社区关于水晶报表的讨论 CSDN - 专家门诊 关闭窗口 主 题： 有关水晶报表的使用经验和资料总结，欢迎各位使用过水晶报表的同仁把自己在使用过程中的总结、经验、体会同大家共享！！ 作 者： foxtoo (阿里巴巴和四十大盗) 信 誉 值： ...
[部署系列之一]轻松搞定水晶报表9.2打包 开发环境：VB6,水晶报表9.2,win2000pro 水晶报表是采用字段定义方式实现的，代码见http://www.cnblogs.com/babyt/articles/116880.html 目标机器：win2000pro，未安装水晶报表 这是我第一次使用InstallShield进行...
请教高手一个关于msdn的问题 我想在vb.net里边写代码，给水晶报表的数据源存储过程设置参数，就在mdsn里边搜索＂参数字段＂选择＂参数字段运行时自定义＂里边给的示例代码如下：在运行时修改参数字段[Visual Basic] 声明将参数传递给 查看器控件...
[转] 水晶报表Q&A [http://blog.csdn.net/wzhibin/archive/2007/06/01/1634209.aspx] 1、水晶报表下关于表格线隐藏的问题Q：首先，建立Rpt文件，我是要做套打，所以在Rpt文件上画了些线，框还有文字，浏览的时候，通过更改Rpt字段值的办法，初步实现数据的读取，可是当我点打印的时候，问题就出来了，...
[VB.NET]新手请教:根据DATAGRID实现进度图表,请高手帮忙! 多谢二楼的方案,报表控件如果能实现的了我就可以用水晶报表了!你介绍的那个控件是没法实现的!我的要求是左边的列就如DataGrid,而右边的列动态的显示进度条! 请高手提供好的方案! 多谢了! _________________________...
报表工具：开源 or 收费？ 做报表很长时间了，最近发现一个比较奇怪的现象：各家工具使出各种手段做广告、吸引注意力，但是受到程序员热烈追捧的反倒是 Jsper report ＋ ireport 这样的免费、开源的 JAVA 工具，几个开了专版讨论 JAVA 报表的...
使用推模式给CrystalReportViewer添加报表文件时的问题 水晶报表生成数据有两种模式,拉模式是在创建报表时指定数据库连接及要显示的内容,是不能从一个报表文件满足多个查询条件的显示的,而推模式可以(关于这两种模式,[url=...链接网站[/url]上有详细介绍)....
请教动态设置text的问题 我有一个报表，在一节中左半边是一个text object（如：个人经历），右边是一个field object,中间用竖线隔开，由于我的field object是从dataset中得到的，且这个字符串教长，超过了一页，所以显示到下一页了，但是...
