[RaggiTech]

كاتب الموضوع : !TheCodeOfSilence


بسم الله الرحمن الرحيم

فى الموضوع الاول قمنا باضافة DataSource الى التقرير
والان كيف نربط DataSource بالتقرير واضافة بيانات لها وعرضها فى التقرير

الان نحن قمنا باضافة DataSet الى المشروع وتسمى DataSet1
قمنا باضافة Table يسمى MyTable1
يحتوى على Column يسمى Name

لننتقل الى الجزء المفضل الكود
أولا
يمكنك اضافة هذا namespace للمشروع

كود :

Imports Microsoft.Reporting.WinForms

اضافة البيانات لل DataSet

كود :

Dim MyDS As New DataSet1
MyDS.MyTable1.AddMyTable1Row("mmt")

الان هذه Function تعيد لنا ReportDataSource
انا استخدم هذه ال Function اذا كان لديك اكثر من DataSet تعمل من نفس التقرير

كود :

Friend Shared Function Binding_Report(ByVal BindDataMamber As String, ByVal ReportDataSourceName As String, ByVal Bind_DataSource As DataSet) As ReportDataSource

Dim C_S_Bind As New BindingSource
C_S_Bind.DataSource = Bind_DataSource 'data set
C_S_Bind.DataMember = BindDataMamber 'data table

Dim C_S_RDS As New ReportDataSource
C_S_RDS.Name = ReportDataSourceName 'data set_data table
C_S_RDS.Value = C_S_Bind

Return C_S_RDS
End Function

فى كود Button الذى سيعرض التقرير
نكتب كود اضافة البانات ثم
فى السطر الثالث نضع اسم التقرير على هيئة "اسم المشروع_اسم التقرير"

كود :

Dim RV As New ReportViewer

RV.LocalReport.DataSources.Add(Binding_Report("MyTable1", "DataSet1_MyTable1", DataSet1))

RV.LocalReport.ReportEmbeddedResource = "Test.Report1.rdlc"

RV.RefreshReport()
RV.Dock = DockStyle.Fill

Dim FRM As New Form
FRM.WindowState = FormWindowState.Maximized
FRM.MdiParent = Me
FRM.Controls.Add(RV)
FRM.Show()

الان نفتح التقرير نضيف TextBox
كليك يمين علي Textbox ونختار Expression
نختار DataSet التى قمنا بعملها ونختار Column
ثم Paste ثم ok
نلاحظ ان تم كتابة جمل داخل ال Textbox تبدا ب =
قم بتجربة المشروع

اى اسئلة
لا
ماشى
السلام عليكم ورحمه الله وبركاته