عدم نمایش رکوردهای فیلتر شده در گزارش!

[ali190]

باسلام و عرض خسته باشید خدمت همه دوستان عزیز
من در گزارش ساز Stimul ابتدا به دیتابیس وصل شدم و گزارشم رو درست کردم

http://img4up.com/up2/71096714929501578293.jpg
مشکلم الان اینجاست که من در دیتابیسم 20 رکورد رو ذخیره کردم
میخوام فقط یک رکرود رو فیلتر و در گزارش نمایش بدم
این کار رو با استفاده از کدهای زیر انجام میدم:


Imports System.Data.SqlClient
Imports Stimulsoft.Report
Public Class Form1
Private cnnString As String = "Data Source=server1;Initial Catalog=bank1;Integrated Security=True"
Private cnn As New SqlConnection(cnnString)
Private cmd As SqlCommand
Private ad As SqlDataAdapter
Private dt As DataSet
Dim StiReport1 As New Stimulsoft.Report.StiReport()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
StiReport1.Load(My.Application.Info.DirectoryPath & "\Report.mrt")
ad = New SqlDataAdapter("Select * from personel where id='1'", cnnString)
dt = New DataSet
ad.Fill(dt)
StiReport1.RegData(dt)
StiReport1.Compile()
StiReport1.Render()
StiReport1.Show()
End Sub
منتها به جای نمایش همون یه رکورد که من فیلترش کردم همه رکوردها نمایش داده میشه
ممنون میشم کمکم کنید تا بتونم این مشکل رو برطرف کنم
یاعلی

[ali190]

باسلام و عرض خسته نباشید
دوستان نمونه پروژه ام رو که مشکل داشت رو خدمتتون آپلود کردم
ممنون میشم راهنماییم کنید
یاعلی

دانلود پروژه (http://uploadkon.ir/uploads/e88a40b5bec10e4dbe54050ac89051ee.zip)

[PetekDincos]

باسلام و عرض خسته نباشید
دوستان نمونه پروژه ام رو که مشکل داشت رو خدمتتون آپلود کردم
ممنون میشم راهنماییم کنید
یاعلی

دانلود پروژه (http://uploadkon.ir/uploads/e88a40b5bec10e4dbe54050ac89051ee.zip)
با سلام
دوست عزیز من VB رو سیستمم نصب نیست و VB هم کار نمی کنم اما وقتی خود فایل گزارش رو دیدم متوجه شدم که شما دارید راه رو اشتباه میرید شما ببین این مراحلی که می گم رو به درستی انجام بدید شما در خود گزارش از قسمت Dictionary یه New DataSource ایجاد کنید و در صفحه باز شده Data from DataSet ,DataTable رو انتخاب کنید ودر صفحه ظاهر شده برای Name in Source یه نام وارد کنید و این نام مهم می باشه چون باید در Codebehind موقع پاس دادن کوئری استفاده کنید و در همون صفحه با استفاده از New Column فیلدهایی که در جدولت داری رو در اینجا هم ابجاد کن با همون نام و همون نوع و پس از تایید این صفحه یه DataBand در صفحه قرار بده و این فیلدهای Data Source که ایجاد کردی رو در این DataBand قرار بده و در Codebehind همون کد ها رو بنویس با این تفاوت که RegData رو به این صورت بنویس

StiReport1.RegData("DataSource Name in Report",dt);
انشاالله مشکلت حل بشه و دیگه نیازی نیست در خود گزارش دستور Sql بنویسی چون شما اومده بودی در خود گزارش یه Select می کردی و همه رکوردها رو نمایش می دادی با تشکر

[rexi1r]

سلام دوست عزیز ممنون خیلی از مشکلاتم رو حل کردی ولی یه سوال وقتی یه رکورد رو به گزارش میفرستم کامل نشونش میده و همه داده ها رو میاره ولی وقتی همه رکوردها رو میفرستم به گزارش که یه گزارش کامل بگیرم به اندازه رکورد ها صفحه میسازه ولی فقط بعضی داده ها رو میاره

[alicomputer]

Dim strconnection As String = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\DB\MainDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim oconnetion As New SqlClient.SqlConnection(strconnection)
　
Dim strsql As String = "select * from Tbl_Sabtename where dore LIKE N'" & ComboBox1.Text.Trim() & "%' and sabt LIKE N'%" & ComboBox14.Text.Trim() & "%' ORDER BY lname ASC"
Dim oda As New SqlClient.SqlDataAdapter(strsql, strconnection)
Dim adataset As New DataSet
oda.Fill(adataset, "Tbl_Sabtename")
Dim rpt As New gavahi
rpt.Load("gavahi")
rpt.SetDataSource(adataset.Tables("Tbl_Sabtename"))

CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()