1187
社区成员
关于水晶报表： vb一运行到那里就自动关闭了。
就是这一句
Report.Database.Tables(2).SetDataSource rs2
vb没有报错，就直接关闭了。系统提示，说什么不能读内存。
请高手指教。
Report.Database.Tables(2).SetDataSource rs2
vb没有报错，就直接关闭了。系统提示，说什么不能读内存。
请高手指教。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
TsungLee 2006-03-05
改用10.0版本后，问题又变了：
执行到Form2.CRViewer91.ViewReport这里，程序报错“This field name is not known”。我检查过几个字段，都是对应的。这是什么问题呢？
以下是代码片段：
Set Report = CryApp.OpenReport(App.Path & "\" + ReportFile)
rs1.Open "select * from jincang_ordergoods where billnum in (select billnum from jincang_orders where storage " + SQL + ")", cnn
rs2.Open "select billnum,storage from jincang_orders where storage " + SQL, cnn
rs3.Open "select goodnum,amount from xiaoshou_ordergoods where billnum in (select billnum from jincang_orders where storage " + SQL + ")", cnn
Report.Database.Tables(1).SetDataSource rs1
Report.Database.Tables(2).SetDataSource rs2
Report.Database.Tables(3).SetDataSource rs3
Report.DiscardSavedData
Load Form2
Form2.CRViewer91.ReportSource = Report
Form2.CRViewer91.Refresh
Form2.CRViewer91.ViewReport'执行到这里出错
Form2.Show
执行到Form2.CRViewer91.ViewReport这里，程序报错“This field name is not known”。我检查过几个字段，都是对应的。这是什么问题呢？
以下是代码片段：
Set Report = CryApp.OpenReport(App.Path & "\" + ReportFile)
rs1.Open "select * from jincang_ordergoods where billnum in (select billnum from jincang_orders where storage " + SQL + ")", cnn
rs2.Open "select billnum,storage from jincang_orders where storage " + SQL, cnn
rs3.Open "select goodnum,amount from xiaoshou_ordergoods where billnum in (select billnum from jincang_orders where storage " + SQL + ")", cnn
Report.Database.Tables(1).SetDataSource rs1
Report.Database.Tables(2).SetDataSource rs2
Report.Database.Tables(3).SetDataSource rs3
Report.DiscardSavedData
Load Form2
Form2.CRViewer91.ReportSource = Report
Form2.CRViewer91.Refresh
Form2.CRViewer91.ViewReport'执行到这里出错
Form2.Show
daisy8675 2006-03-05
你这代码是9的版本嘛
我没有用过10.但是8的代码不是这么写的
你应该在写代码的时候就看有没有这个属性出来,而不是招这帖上去
水晶报表9以下版本存在内存泄露的问题
我没有用过10.但是8的代码不是这么写的
你应该在写代码的时候就看有没有这个属性出来,而不是招这帖上去
水晶报表9以下版本存在内存泄露的问题
迈克揉索芙特 2006-03-04
没遇到过，帮顶。
Andy__Huang 2006-03-04
反你的代碼帖出來，好象你的代碼有問題？
下面我我調用的一段代碼
Option Explicit
Private Sub Form_Load()
Dim strPathName As String, strReportName As String, strSqlPath As String
Dim rsPath As New ADODB.Recordset
strSqlPath = "select mean from Parameter_tab where parameter_name='tabOrderFormReport'"
rsPath.Open strSqlPath, strPubConnect, adOpenKeyset, adLockReadOnly
If Not rsPath.EOF Then
strPathName = rsPath.Fields(0).Value
Else
MsgBox "§ä¤£¨ì³øªí¸ô®|¡A½Ð»P¸ê°TÁp¨t¡I", vbCritical, "´£¿ô±z"
Exit Sub
End If
strReportName = "custom_tabMaterialGoinReport.rpt"
Screen.MousePointer = 11
Set objReport = objApp.OpenReport(strPathName & strReportName, 1)
' Set objReport = objApp.OpenReport("G:\Report\" & strReportName, 1)
objReport.Database.SetDataSource rsImport
objReport.ReadRecords
CRViewer91.ReportSource = objReport
CRViewer91.ViewReport
Screen.MousePointer = 0
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
下面我我調用的一段代碼
Option Explicit
Private Sub Form_Load()
Dim strPathName As String, strReportName As String, strSqlPath As String
Dim rsPath As New ADODB.Recordset
strSqlPath = "select mean from Parameter_tab where parameter_name='tabOrderFormReport'"
rsPath.Open strSqlPath, strPubConnect, adOpenKeyset, adLockReadOnly
If Not rsPath.EOF Then
strPathName = rsPath.Fields(0).Value
Else
MsgBox "§ä¤£¨ì³øªí¸ô®|¡A½Ð»P¸ê°TÁp¨t¡I", vbCritical, "´£¿ô±z"
Exit Sub
End If
strReportName = "custom_tabMaterialGoinReport.rpt"
Screen.MousePointer = 11
Set objReport = objApp.OpenReport(strPathName & strReportName, 1)
' Set objReport = objApp.OpenReport("G:\Report\" & strReportName, 1)
objReport.Database.SetDataSource rsImport
objReport.ReadRecords
CRViewer91.ReportSource = objReport
CRViewer91.ViewReport
Screen.MousePointer = 0
End Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
End Sub
[水晶报表]水晶报表的使用经验和资料总结 水晶报表的使用经验和资料总结资料： Asp.Net中使用水晶报表（上） www.dotnet8.com 2002-9-6 DotNet吧[HTML]在我们对VS.Net中的水晶报表（Crystal Reports）进行研究之前，我和我朋友对如何将这个复杂的东东...
CSDN社区关于水晶报表的讨论 CSDN - 专家门诊 关闭窗口 主 题： 有关水晶报表的使用经验和资料总结，欢迎各位使用过水晶报表的同仁把自己在使用过程中的总结、经验、体会同大家共享！！ 作 者： foxtoo (阿里巴巴和四十大盗) 信 誉 值： ...
水晶报表使用经验总结 转自 http://blog.csdn.net/louisp/archive/2005/10/27/517621.aspx 资料：Asp.Net中使用水晶报表（上）www.dotnet8.com 2002-9-6 DotNet吧 这篇文章教你如何在.Net Web应用中使用水晶报表，也可以让你在学习...
vb源码 VB源码:HOOK 万能网游密码截取技术之（诛仙） ... ...VB源码:IP地址输入框控件 下载地址:http://www.2e3.org/down.asp?url=lelecode_2 VB源码:生成MD5码 下载地址:http://www.2e3.
VB.NET安装部署
VB.NET安装部署一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”...
VB操作EXCEL表的常用方法 VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。...
vb/vb.net开发精粹(14) 如何用vb自动填写、选择下拉框选项并提交网页表单？？ 如何恢复最大化 如何写外接程序启动路径？ 标尺控件 各位大侠帮忙啊，纠结好几天了 如何规定TEXT里面只能输入数字？ 悲剧的时钟 各位大侠帮帮忙 这样的...
C#项目打包，并自动安装SQL数据库(VB.NET) 一).创建部署项目 1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。 2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称...
vb/vb.net开发精粹(2) 关于EXCEL转换成ACCESS库 ...关于vb生成exe后出现的问题，急！！！！ 一道不知拿不定主意的小题 是不是需要刷新一下窗口？ vb 连接sql2000 数据库 超慢的问题~ uridownloadtofile 函数问题 VB6.0如何调用打印纸格
VB.NET 打包
一).创建部署项目
1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。
2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装...
vb/vb.net原创文章精粹（2） [url=http://www.vbbaike.com/show.asp?id=101290]关于... [url=http://www.vbbaike.com/show.asp?id=101289]关于vb生成exe后出现的问题，急！！！！[/url] [url=http://www.vbbaike.com/show.asp?id=101...
VB.net 打包安装 一).创建部署项目1. 在“文件”菜单上指向“添加项目”，然后选择“新建项目”。 2. 在“添加新项目”对话框中，选择“项目类型”窗格中的“安装和部署项目”，然后选择“模板”窗格中的“安装项目”。在“名称”框...
