طباعة القيم الموجوده في الفورم من دون ادخال في الداتابيس بالكريستال ريبورت

لازم تعمل داتا ست وتعطيها اي إسم مثلا" dsPrint

وثم تعمل داخلها جدول خاص ماله علاقة بالداتا بيس تبعتك وتسمي مثلا" dtPrint وتكون حقول هذا التيبل بعدد الحقول إللي في الفورم وترغب إنت في طباعتها ،

ثم في أمر الطباعة الموجود في الفورم في خاصية Click طبعا" بتضيف الكود التالي :

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

Try

Dim ds As New dsPrint

Dim dRow As DataRow

dRow = ds.dtPrint.NewRow()

dRow(0) = الخانة الأولى في الفورم.Text

dRow(1) = Date.Parse(الخانة الثانية طبعا" إذا كانت تالايخ.Value)

dRow(2) = الخانة الثانية في الفورم.Text

dRow(4) =الخانة الثالثة في الفورم..Text

ds.dtPrint.Rows.Add(dRow)

Dim Report As New إسم التقرير

Report.SetDataSource(ds)

Dim reports As New frmReports فورم التقرير

reports.CrystalReportViewer1.ReportSource = Report

reports.ShowDialog()

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

طبعا" انا إفترضت ان عدد الحقول اربعة لكن إنت بتزيد حسب الحقول التي تريد طباعتها

أرجوا ان يكون هذا الرد هو المناسب لسؤالك

تحياتي