yeganehhr
دوشنبه 01 شهریور 1389, 00:54 صبح
با سلام
برنامه اي دارم كه اطلاعات يه فايل xml رو توي يه گريدويو نمايش ميده و با جستجو توي گريدويو اين اطلاعاتو فيلتر ميشه. حالا من ميخوام اين اطلاعات فيلتر شده برحسب نامم رو توسط كريستال ريپورت نمايش و چاپ كنم اما كل اطلاعات داخل ديتاستم توي كريستال ريپورت وارد ميشه!!!!:ناراحت::ناراحت:
براي اينكه بتونم از اطلاعات توي گريدم(همون اطلاعات فيلتر شده ام:ناراحت:) گزارش بگيرم بايد چيكار كنم؟؟؟؟
ممنون:لبخندساده:
كدم اينه:
Dim Rpt As New Report
Dim d As New DataTable
d = Bind.DataSource
Rpt.Load("Report.rpt")
Rpt.SetDataSource(d)
frmprint.CRV.ReportSource = Rpt
frmprint.ShowDialog()
برنامه اي دارم كه اطلاعات يه فايل xml رو توي يه گريدويو نمايش ميده و با جستجو توي گريدويو اين اطلاعاتو فيلتر ميشه. حالا من ميخوام اين اطلاعات فيلتر شده برحسب نامم رو توسط كريستال ريپورت نمايش و چاپ كنم اما كل اطلاعات داخل ديتاستم توي كريستال ريپورت وارد ميشه!!!!:ناراحت::ناراحت:
براي اينكه بتونم از اطلاعات توي گريدم(همون اطلاعات فيلتر شده ام:ناراحت:) گزارش بگيرم بايد چيكار كنم؟؟؟؟
ممنون:لبخندساده:
كدم اينه:
Dim Rpt As New Report
Dim d As New DataTable
d = Bind.DataSource
Rpt.Load("Report.rpt")
Rpt.SetDataSource(d)
frmprint.CRV.ReportSource = Rpt
frmprint.ShowDialog()