小弟初学vb
昨天问了些,水晶报表的初级问题!谢谢大家的耐心解答!
今天又碰到了些问题,不好意思还要麻烦各位Dim Report As New CrystalReport1Private Sub Form_Load()
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mkzyy\mkzyy.mdb;Persist Security Info=False"
Set rs = New ADODB.Recordset
sqlstr = "select * from mkzyy_fsk where id = " & CInt(findid)
rs.Open sqlstr, conn, 1, 1
MsgBox (sqlstr)
If Not rs.EOF Then
 Report.Database.SetDataSource rs End If
rs.Close
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefaultEnd Sub
Private Sub Form_Resize()
CRViewer91.Top = 0
CRViewer91.Left = 0
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidthEnd Sub现在的问题是,预览时,不管我选什么记录,它总是固定显示表中的一条记录。
请各位大侠们指教

解决方案 »

  1.   

    要想显示所有的记录,把查询条件去掉:
    sqlstr = "select * from mkzyy_fsk where id = " & CInt(findid)---------->
    sqlstr = "select * from mkzyy_fsk "
      

  2.   

    水晶报表是接受你传递的recordsetsqlstr = "select * from mkzyy_fsk where id = " & CInt(findid)这是你传进去的,你自己看你写的SQL执行能出现多少条记录就知道问题在那啦
      

  3.   

    不好意思,这几天没上网!
     问题也没表述清楚。
     sqlstr = "select * from mkzyy_fsk where id = " & CInt(findid)
     是我想要查询的记录
     
     查询的记录,在调用水晶报表打印预览时出问题!
     比如,查询到A记录,在预览时却显示的是B记录的内容
           查询到C记录,在预览时却显示的是B记录的内容
           不管我查询什么记录,在水晶报表中预览,总是显示B记录的内容!
      

  4.   

    那大抵是你的数据记录还没有传过去检查你的Recordset执行,并且把水晶报表的保存记录取消掉