مشکل در فیلتر کردن فست ریپرت

معادل این کد به زبان vb.net چی میشه
string ReportPath = "D:\\YourReport.frx";

Report FReport = new Report();
string ConStr = "Your ConnectionString";
FReport.Preview = previewControl1;
FReport.Load(ReportPath);
FReport.Dictionary.Connections[0].ConnectionString = ConStr;

TableDataSource TBL = new TableDataSource
TBL = FReport.GetDataSource("YourTable") as TableDataSource
TBL.SelectCommand = ("SELECT * FROM YourTable");
FReport.Show
این TableDataSourceچیه؟
ایکاش یه مثال از فست ریپورت بود

نقل قول:

---

نوشته شده توسط sunrisesystem

ایکاش یه مثال از فست ریپورت بود

---

درود

ببینید نمونه سورس کدهایی که داخل ستاپ خود فست ریپورت هست بهترین منبع یادگیریش هست.

همچنین داخل سایت هیلتون اموزش فست ریپورت وجود داره...اما شما میتونید به جای فست ریپورت از استیمول هم استفاده کنید که اموزش های اون بیشتر هستش.

چند نمونه کد میزارم براتون امیدوارم کمکتون کند :

گزارش گیری مستقیم از دیتاگرید:

 Dim Report1 As Report = New Report()        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")

        Report1.RegisterData(DataGridView1.DataSource, "Table1")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", txt_date.Text)





        Report1.Show()

گزارش گیری از دیتابیس با دیتاست :

 Dim da As New OleDbDataAdapter        Dim ds As New DataSet

        Dim strsql As String

        Dim Report1 As Report = New Report()





        connect.Open()

        strsql = "select idnumber,namess,family,tell,mob from Table1"

        da = New OleDbDataAdapter(strsql, connect)

        da.Fill(ds, "Table1")

        connect.Close()





        Report1.RegisterData(ds.Tables(0), "Table1")









        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", DateTimePickerX1.Text)





        Report1.Show()

گزارش گیری از دیتابیس با دیتاتیبل :

 Dim da As New OleDbDataAdapter        Dim ds As New DataSet

        Dim strsql As String

        Dim dt As DataTable = New DataTable()





        connect.Open()

        strsql = "select idnumber,namess,family,tell,mob from Table1 Order By idnumber "

        da = New OleDbDataAdapter(strsql, connect)

        da.Fill(dt)

        connect.Close()





        Dim Report1 As Report = New Report()

        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")

        Report1.RegisterData(dt, "Table1")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", DateTimePickerX1.Text)





        Report1.Show()

نقل قول:

---

نوشته شده توسط samiasoft

درود

ببینید نمونه سورس کدهایی که داخل ستاپ خود فست ریپورت هست بهترین منبع یادگیریش هست.

همچنین داخل سایت هیلتون اموزش فست ریپورت وجود داره...اما شما میتونید به جای فست ریپورت از استیمول هم استفاده کنید که اموزش های اون بیشتر هستش.

چند نمونه کد میزارم براتون امیدوارم کمکتون کند :

گزارش گیری مستقیم از دیتاگرید:

 Dim Report1 As Report = New Report()        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")

        Report1.RegisterData(DataGridView1.DataSource, "Table1")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", txt_date.Text)





        Report1.Show()

گزارش گیری از دیتابیس با دیتاست :

 Dim da As New OleDbDataAdapter        Dim ds As New DataSet

        Dim strsql As String

        Dim Report1 As Report = New Report()





        connect.Open()

        strsql = "select idnumber,namess,family,tell,mob from Table1"

        da = New OleDbDataAdapter(strsql, connect)

        da.Fill(ds, "Table1")

        connect.Close()





        Report1.RegisterData(ds.Tables(0), "Table1")









        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", DateTimePickerX1.Text)





        Report1.Show()

گزارش گیری از دیتابیس با دیتاتیبل :

 Dim da As New OleDbDataAdapter        Dim ds As New DataSet

        Dim strsql As String

        Dim dt As DataTable = New DataTable()





        connect.Open()

        strsql = "select idnumber,namess,family,tell,mob from Table1 Order By idnumber "

        da = New OleDbDataAdapter(strsql, connect)

        da.Fill(dt)

        connect.Close()





        Dim Report1 As Report = New Report()

        Report1.Load(Application.StartupPath & "/Report-datagrid.frx")

        Report1.RegisterData(dt, "Table1")





        'ارسال ساعت

        Report1.SetParameterValue("Parameter1", DateTimePickerX1.Text)





        Report1.Show()

---

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

نقل قول:

---

نوشته شده توسط sunrisesystem

معادل این کد به زبان vb.net چی میشه
string ReportPath = "D:\\YourReport.frx";

Report FReport = new Report();
string ConStr = "Your ConnectionString";
FReport.Preview = previewControl1;
FReport.Load(ReportPath);
FReport.Dictionary.Connections[0].ConnectionString = ConStr;

TableDataSource TBL = new TableDataSource
TBL = FReport.GetDataSource("YourTable") as TableDataSource
TBL.SelectCommand = ("SELECT * FROM YourTable");
FReport.Show
این TableDataSourceچیه؟
ایکاش یه مثال از فست ریپورت بود

---

سلام
معادل کد بالا میشود این کد

Dim reportPath As String = "D:\YourReport.frx"

Dim conStr As String = "YourConectionString"





Dim fReport As New Report

fReport.Preview = PreviewControl1

fReport.Load(reportPath)

fReport.Dictionary.Connections(0).ConnectionString = conStr





Dim tbl = new TableDataSource

tbl = DirectCast(fReport.GetDataSource("YourTable"), TableDataSource)

tbl.SelectCommand = "SELECT * FROM YourTable"

fReport.Show()

این TableDataSource هم ، وقتی رفرنس های فست ریپورت رو به پروژتون اضافه کنید ، قابل استفاده هست.

خیلی ممنون...کارم گیر همین یه تکیه کد بود...خدا خیرتون بده