گزارش گیری با کریستال ریپورت

[mohammaduir]

سلام
یه فایلی ضمیمه کردم
دیتاگریدی داریم که با یه دکمه قراره اطلاعات توش چاپ شه

سرچ کردم توی سایت اما هیچ رقمه موفق نشدم یه دونه خودم بسازم

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

[vb341]

من با استفاده از کد زیر شماره رکورد مورد نظر رو در دیتا گرید بدست میارم :


Try

Dim IdCode As Int32 = 0
Dim personelNum As String = String.Empty


For Each SelectedRow As DataGridViewRow In Me.DataGridView1.SelectedRows
IdCode = SelectedRow.Cells(0).Value
personelNum = SelectedRow.Cells(1).Value
Next

TextBox6.Text = IdCode
TextBox7.Text = personelNum

Catch ex As SqlClient.SqlException
MessageBox.Show(ex.Message.ToString)
End Try


و با استفاده از کد زیر هم گزارش رو که مربوط به یه سطر انتحابی از گرید هست رو نمایش میدم :


DA = New SqlDataAdapter("select * from View1 where PersonelNumberMaster='" & TextBox7.Text & "'", Con)
KosooraT_VAMDataSet1.Clear()
DA.Fill(KosooraT_VAMDataSet1, "View1")
RepZamen2.SetDataSource(KosooraT_VAMDataSet1)
RepZamen2.SetParameterValue("DateFa", getpersiandate())

FrmReport.CrystalReportViewer1.ReportSource = RepZamen2
FrmReport.ShowDialog()

[vb341]

اگر هم که ل گرید رو میخوای در گزارش نمایش بدی دیگه نیاز به شرط نداری

[mohammaduir]

سلام ممنون
به طور اتفاقی کارم رو توی جایی دیگه ای راه انداخت
اما هنوز توی گزارش گیری مشکل دارم
میشه یه نمونه مشابه اماده شده اگه دارید بزارید ؟