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

[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چیه؟
ایکاش یه مثال از فست ریپورت بود

[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]

درود

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

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

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

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

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()
من کد واسه فیلتر کردن گزارش میخام متاسفانه در گزارش همه فیلد ها را میاره...اما داخل برنامه من بانک اطلاعاتی را براساس تاریخ و سه فیلد دیگه فیلتر کردم

[محمد آشتیانی]

معادل این کد به زبان 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 هم ، وقتی رفرنس های فست ریپورت رو به پروژتون اضافه کنید ، قابل استفاده هست.

[sunrisesystem]

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