Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String = "Select * FROM hy_cwbb"
Dim DBConfig_sql As String = "Data Source=localhost;Initial Catalog=ufdata_001_2008;User ID=sa;Password="
Dim ds As New DataSet
Dim sqlcon As New SqlConnection
sqlcon.ConnectionString = (DBConfig_sql)
sqlcon = New SqlConnection(DBConfig_sql)
Dim sqlcmd As SqlCommand
sqlcmd = New SqlCommand(sql,sqlcon)
Dim sqlad As SqlDataAdapter = New SqlDataAdapter()
sqlad.SelectCommand = sqlcmd
sqlad.Fill(ds, "sql") Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(ds.Tables("sql"))
Me.CrystalReportViewer1.ReportSource = oRpt出错:, oRpt.SetDataSource(ds.Tables("sql")) "该报表不包含表"
我知道是应该CrystalReport1.rpt上添加数据源与打印字段,但怎么也无法选到dataset.table里的字段啊??
怎样才能选到dataset里的数据表呢?
Dim sql As String = "Select * FROM hy_cwbb"
Dim DBConfig_sql As String = "Data Source=localhost;Initial Catalog=ufdata_001_2008;User ID=sa;Password="
Dim ds As New DataSet
Dim sqlcon As New SqlConnection
sqlcon.ConnectionString = (DBConfig_sql)
sqlcon = New SqlConnection(DBConfig_sql)
Dim sqlcmd As SqlCommand
sqlcmd = New SqlCommand(sql,sqlcon)
Dim sqlad As SqlDataAdapter = New SqlDataAdapter()
sqlad.SelectCommand = sqlcmd
sqlad.Fill(ds, "sql") Dim oRpt As New CrystalReport1()
oRpt.SetDataSource(ds.Tables("sql"))
Me.CrystalReportViewer1.ReportSource = oRpt出错:, oRpt.SetDataSource(ds.Tables("sql")) "该报表不包含表"
我知道是应该CrystalReport1.rpt上添加数据源与打印字段,但怎么也无法选到dataset.table里的字段啊??
怎样才能选到dataset里的数据表呢?
vb.net不是很熟
但只能这样处理吗? 不能获取DATASET.table的内容吗?
刚刚学,请指点一二!
网上大部分都是直接连接数据库选表的字段的例子.
这个sql的表名,必须与你水晶报表里设计用的表名一样才行,不能随意取
,加入你的字段。并将要显示的字段,拖到右边的详细资料中。