Dim con As New SqlConnection("server=sun;database=lcerp;uid=sa;pwd=xin") 
        Dim ada As New SqlDataAdapter("select * from bas_bank where   bank='中国'", con) 
        con.Open() 
        Dim ds As New DataSet() 
        ada.Fill(ds, "bas_bank")         Dim r As CrystalReport1 = New CrystalReport1() 
        r.SetDataSource(ds) 
        cry.ReportSource = r 
CrystalReport1是我设计时的报表 
出错提示:找不到类CrystalReport1 

解决方案 »

  1.   

    你看看这个http://www.chinaspx.com/club/showtopic.asp?TOPIC_ID=10773&Forum_ID=3
      

  2.   

    push是程序拿数据给报表,而pull是报表自己拿数据!
      

  3.   

    动态连接数据库
    比如:查询时动态产生报表
    使用PUSH还是PULL
    象这样
    Dim con As New SqlConnection("server=sun;database=lcerp;uid=sa;pwd=xin") 
            Dim ada As New SqlDataAdapter("select * from bas_bank where   bank='中国'", con) 
            con.Open() 
            Dim ds As New DataSet() 
            ada.Fill(ds, "bas_bank")         Dim r As CrystalReport1 = New CrystalReport1() 
            r.SetDataSource(ds) 
            cry.ReportSource = r 
    CrystalReport1是我设计时的报表 
    出错提示:找不到类CrystalReport1