• 0
aftfm

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

سؤال

السلام عليكم ورحمة الله وبركاته
 
لدي جملة استعلام من خلال ما هو مكتوب في اداة اللست بوكس
 
ولكن لا تظهر حسب ما هو مطلوب 
هذا الكود يتم اظهار النوع ومن ثم الغرف مع اني كاتب له 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 

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .