اخى الكريم هذا كود يقوم بعرض البيانات من قاعدة البيانات على حسب شرط معين مثلا على حسب رقم الفاتورة من مربع النص
قم بتغير ما يلزم على حسب مشروعك
PHP كود :
Dim FrmPr As New prent Dim Sql1 As String = "Select * from hagz1 where idtet like " & txtid.Text.Trim & ""
Dim MyDs2 As New DataSet Dim DAdp2 As New OleDbDataAdapter(Sql1, con) MyDs2.Clear() DAdp2.Fill(MyDs2, "hagz1") Dim rpt As New hagz rpt.Load() rpt.SetDataSource(MyDs2.Tables("hagz1"))
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
11-02-16, 11:59 AM (آخر تعديل لهذه المشاركة : 11-02-16, 12:04 PM {2} بواسطة Adrees.)
اخي الكريم جرب بهذه الطريقة
PHP كود :
Dim report As New CrystalReport2 da = New OleDbDataAdapter("select * from items", con) Dim ds As New DataSet da.Fill(ds, "items") report.SetDataSource(ds.Tables(0)) Form2.CrystalReportViewer1.ReportSource = report Form2.Show()