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
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
比如:查询时动态产生报表
使用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