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()

解决方案 »

  1.   

    你要告诉我们出什么错嘛。你看一下是不是有些模块里的字段在你的DateSet的Table里没有?
      

  2.   

    CrystalReportSource1.ReportDocument.SetDataSource(dataset.Tables[0])
      

  3.   

    CrystalReportSource1.ReportDocument.SetDataSource(dataset.Tables[0])
    这句话报"应为标识符"(在方括号里)
      

  4.   

    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("customer"))(这行报"该报表不包含表"指什么???)
                'CrystalReportSource1.ReportDocument.SetDataSource()
                CrystalReportSource1.DataBind()
                CrystalReportViewer1.ReportSource = CrystalReportSource1
                CrystalReportViewer1.DataBind()