مشكل در گزارش گيري با ديتاست

[fereshtehrahimi]

سلام
من براي گزارش گيري از كد زير استفاده مي كنم كه اول نتيجه جستجو را در ديتاگريد بعد در گزارش نمايش دهد در ديتاگريد درست نمايش مي دهد ولي در گزارش تمام اطلاعات تيبل را نمايش مي دهد
چه طور اين مشكل را حل كنم

 Dim dap1 As New SqlClient.SqlDataAdapter
        Dim dset1 As New DataSet
        Dim rpt As New CrystalReport2
      
        Dim strcon As String = "Initial Catalog=emtiazekol;data source= localhost;integrated security=sspi;"

        Dim sqltext As String = "SELECT     ostan AS Expr1, SUM(em_khabar) AS Expr2, SUM(s_khabar) AS Expr3, SUM(em_tahlil) AS Expr4, SUM(s_tahli) AS Expr5, SUM(em_mamoriat) AS Expr6,SUM(s_mamoriat) AS Expr7 FROM tblcalculat where sal Like N'" & Combosal.Text & "%' and mah Like N'" & Combotarikh.Text & "%' GROUP BY ostan"
        Dim con As New SqlConnection(strcon)
        
        dap1.SelectCommand = New SqlClient.SqlCommand
        dap1.SelectCommand.Connection = con
        
        dset1.Dispose()
        dset1 = New DataSet
        dap1.SelectCommand.CommandText = sqltext
        dset1.Clear()
        dap1.Fill(dset1, "main_tlb")
        DataGridView1.DataSource = dset1
        DataGridView1.DataMember = "main_tlb"
        rpt.SetDataSource(dset1)
        CrystalReportViewer1.ReportSource = rpt

[baran_mehr]

سلام گلم.
خوب میتونی یک جدول برای نمایش گزارش درست کنی که فیلداری مورد نظرت رو داشته باشه.
و با یه دستور Select مقادیری رو که میخوای در کریستال نشون بده رو بر گردون و درون اون جدول بریز و بعد جدول رو به کریستال ارتباط بده
موفق باشی.