fereshtehrahimi
یک شنبه 12 خرداد 1387, 16:02 عصر
سلام
من براي گزارش گيري از كد زير استفاده مي كنم كه اول نتيجه جستجو را در ديتاگريد بعد در گزارش نمايش دهد در ديتاگريد درست نمايش مي دهد ولي در گزارش تمام اطلاعات تيبل را نمايش مي دهد
چه طور اين مشكل را حل كنم
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
من براي گزارش گيري از كد زير استفاده مي كنم كه اول نتيجه جستجو را در ديتاگريد بعد در گزارش نمايش دهد در ديتاگريد درست نمايش مي دهد ولي در گزارش تمام اطلاعات تيبل را نمايش مي دهد
چه طور اين مشكل را حل كنم
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