关于水晶报表： vb一运行到那里就自动关闭了。

就是这一句  
  Report.Database.Tables(2).SetDataSource   rs2  
   
  vb没有报错，就直接关闭了。系统提示，说什么不能读内存。  
  请高手指教。 问题点数：100、回复次数：4Top

1 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-03-04 10:49:49 得分 0

没遇到过，帮顶。Top

2 楼hdhai9451（☆新人类☆）回复于 2006-03-04 13:37:24 得分 50

反你的代碼帖出來，好象你的代碼有問題？  
   
  下面我我調用的一段代碼  
   
  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   SubTop

3 楼TsungLee（Lee）回复于 2006-03-05 10:59:00 得分 0

改用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  
  Top

4 楼daisy8675（莫依 沉迷）回复于 2006-03-05 21:12:09 得分 50

你这代码是9的版本嘛  
   
  我没有用过10.但是8的代码不是这么写的  
   
  你应该在写代码的时候就看有没有这个属性出来,而不是招这帖上去  
   
  水晶报表9以下版本存在内存泄露的问题Top

相关问题

• 代码
• storage
• report
• database
• sql
• billnum
• crviewer91
• rspath
• strreportname
• objreport

• 帖主：TsungLee
• hdhai9451
• daisy8675

• Visual Basic类图书
• Visual Basic类源码下载