نوشته شده توسط
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()