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

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

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

ولكن لا تظهر حسب ما هو مطلوب

هذا الكود يتم اظهار النوع ومن ثم الغرف مع اني كاتب له ORDER BY RoomNum

وهو يظهرها حسب TypeDev

المطلوب اظهار بيانات TypeDev حسب الغرف اي جميع الانواع الموجودة في الغرفة رقم 1 مثلا

ثم جميع الانواع الموجودة في غرفة رقم 2

وهكذا

هو هنا يظهر نوع واحد في الغرفة رقم 1 حتى اخر غرفة ومن يم يعيد النوع الثاني في الغرفة رقم 1 حتى نهاية الغرفة ومن ثم النوع الثاث في الغرفة 1 حتى نهاية الغرف

dim dt as new DataTable
For i =0 to ListBox1.Items.Count -1
dim sql AS String = "Select * From tbl1 Where TypeDev ='" & me.ListBox1.Items(i) & "' ORDER BY RoomNum ASC"
Dim da as new OleDbDataAdapter(sql, Con)
da.Fill(dt)
dim rpt As new CRComByRoom
rpt.SetDataSource(dt)
Dim frmPrint as new FormPrint
frmPrint.CrystalReportViewer1.ReportSource = rpt
frmPrint.ShowDialog()
Next

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

مواضيع مشابهة

عدد الزوار حالياً