vs.2005(vb.net)
Dim sql As String = "select item_name,item_size,sum(num)as num from into_cy where into_time<'" & TextBox1.Text & "' group by item_type,item_name,item_size"
Dim conn As New SqlConnection("server=localhost;uid=sa;pwd= ;database=znh")
Dim adapter As New SqlDataAdapter(sql, conn)
Dim dataset As New DataSet
adapter.Fill(dataset, "customer")
CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(dataset.Tables(0))(这行报错,该怎么改?????)
CrystalReportSource1.DataBind()
CrystalReportViewer1.ReportSource = CrystalReportSource1
CrystalReportViewer1.DataBind()
Dim sql As String = "select item_name,item_size,sum(num)as num from into_cy where into_time<'" & TextBox1.Text & "' group by item_type,item_name,item_size"
Dim conn As New SqlConnection("server=localhost;uid=sa;pwd= ;database=znh")
Dim adapter As New SqlDataAdapter(sql, conn)
Dim dataset As New DataSet
adapter.Fill(dataset, "customer")
CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(dataset.Tables(0))(这行报错,该怎么改?????)
CrystalReportSource1.DataBind()
CrystalReportViewer1.ReportSource = CrystalReportSource1
CrystalReportViewer1.DataBind()
这句话报"应为标识符"(在方括号里)
Dim conn As New SqlConnection("server=localhost;uid=sa;pwd= ;database=znh")
Dim adapter As New SqlDataAdapter(sql, conn)
Dim dataset As New DataSet
adapter.Fill(dataset, "customer")
CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport1.rpt"))
CrystalReportSource1.ReportDocument.SetDataSource(dataset.Tables("customer"))(这行报"该报表不包含表"指什么???)
'CrystalReportSource1.ReportDocument.SetDataSource()
CrystalReportSource1.DataBind()
CrystalReportViewer1.ReportSource = CrystalReportSource1
CrystalReportViewer1.DataBind()