水晶报表如何获取VB传递的值(用户交互式)

我有这样的报表,VB6.0+水晶报表,报表提供给用户一个参数,只要用户输入该参数相对应的值,就返回数据库查询的记录.水晶报表的数据源是储存过程,在储存过程里面就有一个参数.  
  我现在想实现的是,设计一个VB界面,提供用户一个选择,不用用户自己输入该参数的值,而是在下拉列表里读取了数据库的数据.只要用户选择了某个值,水晶报表就显示改值返回的记录. 问题点数：40、回复次数：6Top

1 楼huadj（）回复于 2005-07-05 09:09:06 得分 10

我也有相同问题，怎么没有人顶啊？？？？Top

2 楼carpenter01（木匠）回复于 2005-07-05 09:12:14 得分 10

我遇到过。  
   
  客户要求打印时间手工来添，解决办法：输入后保存到数据库中在由水晶报表取出。Top

3 楼Fanks（铁面人）回复于 2005-07-05 09:13:44 得分 10

根据选择的参数重新打开记录集，然后再绑定到报表就可以了。Top

4 楼huadj（）回复于 2005-07-05 14:31:11 得分 10

有没有例子或相关代码？？？Top

5 楼nethedy（兜兜）回复于 2005-07-06 10:36:55 得分 0

//以下是FrmCR1窗體代碼,水晶報表數據源返回的紀錄要跟代碼裡面的一樣  
  Dim   Report   As   New   CrystalReport1  
   
  Option   Explicit  
   
  Private   Sub   Form_Load()  
   
  Set   rsGDBE1   =   New   ADODB.Recordset  
  rsGDBE1.Open   "select   *   from   qndetail     where   TYPE='NORMAL'   and   QN_NO='"   &   FrmSelect2.DataCombo1.Text   &   "'   and   SEQ_NO='"   &   FrmSelect2.DataCombo2.Text   &   "'",   cnGDBE,   adOpenKeyset,   adLockPessimistic  
  If   Not   rsGDBE1.EOF   Then  
          Report.Database.SetDataSource   rsGDBE1,   3,   1  
          Screen.MousePointer   =   vbHourglass  
          CRViewer91.ReportSource   =   Report  
          CRViewer91.ViewReport  
          Screen.MousePointer   =   vbDefault  
  Else  
          MsgBox   "The   Quotation   Not   Data!",   vbOKOnly   +   vbInformation,   "Information"  
  End   If  
   
  End   Sub  
   
  Private   Sub   Form_Resize()  
  CRViewer91.Top   =   0  
  CRViewer91.Left   =   0  
  CRViewer91.Height   =   ScaleHeight  
  CRViewer91.Width   =   ScaleWidth  
  End   Sub  
   
  Private   Sub   Form_Unload(Cancel   As   Integer)  
  Set   rsGDBE1   =   Nothing  
  Report.DiscardSavedData  
  End   SubTop

6 楼marscsdn（mars）回复于 2005-07-06 10:49:35 得分 0

carpenter01(木匠)的做   法跟我一样啊,我用的只是4.6版的Top

相关问题

• 水晶报表
• 用户
• 报表
• 数据库
• vb
• 选择
• report
• crviewer91
• rsgdbe
• 值

• 帖主：nethedy
• huadj
• carpenter01
• Fanks
• huadj

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