[atefkhalf2004]

السيد الفاضل
abdhassan
ممكن مثال بسيط علي استخدام هذه الطريقة

ةهل طريقتك  تصلح هنا



Dim dt As New DataTable
dt.Load(dr)

Dim rpt As New CrystalReport820
Dim t1, t2, t3, t4, t5, t6, t7 As TextObject
't1.Text = dr1.Item("moderia_name")

rpt.SetDataSource(dt)
Form12.CrystalReportViewer1.ReportSource = rpt
Form12.Show()