منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تعبئة الداتا جريد فيو عن طريق اللست بوكس او التشك بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام  عليكم  

اخوتي  الافاضل

 عندي  فورم  خاص  فيه  داتا  جريد فيو    وفيه  لست بوكس  او تشك بوكس  لعرض  بيانات الفصول الدراسية اريد  كود لما  اختار  اكثر من فصل  مثل اختار الفصل الاو ل والفصل الرابع  يعرض  عندي  في  الداتا جريد فيو  بيانات الفصول المختارة فقط وهي فصل اول وفصل رابع   .....؟؟؟  
(15-10-21, 04:16 PM)ismaeel كتب : [ -> ]السلام  عليكم  

اخوتي  الافاضل

 عندي  فورم  خاص  فيه  داتا  جريد فيو    وفيه  لست بوكس  او تشك لست بوكس  لعرض  بيانات الفصول الدراسية اريد  كود لما  اختار  اكثر من فصل  مثل اختار الفصل الاو ل والفصل الرابع  يعرض  عندي  في  الداتا جريد فيو  بيانات الفصول المختارة فقط وهي فصل اول وفصل رابع   .....؟؟؟  

اين اجد الحل يا مشرفي المنتدى
مع العلم اني سويت الكود التالي لكن يتم تعبئة الداتاء على اخر تحديد في التشك بوكس
كود :
For Each x As Object In CheckedListBox1.CheckedItems
           Dim sql = ("select *from schiool_tab where class=@class")
           Dim cmd As New SqlCommand(sql, sqlconn)
           cmd.Parameters.AddWithValue("class", x)
           Dim da As New SqlDataAdapter
           Dim dt As New DataTable
           da.SelectCommand = cmd
           dt.Clear()
           da.Fill(dt)
           dgv2.DataSource = dt
       Next
(16-10-21, 05:12 PM)ismaeel كتب : [ -> ]
(15-10-21, 04:16 PM)ismaeel كتب : [ -> ]السلام  عليكم  

اخوتي  الافاضل

 عندي  فورم  خاص  فيه  داتا  جريد فيو    وفيه  لست بوكس  او تشك لست بوكس  لعرض  بيانات الفصول الدراسية اريد  كود لما  اختار  اكثر من فصل  مثل اختار الفصل الاو ل والفصل الرابع  يعرض  عندي  في  الداتا جريد فيو  بيانات الفصول المختارة فقط وهي فصل اول وفصل رابع   .....؟؟؟  

اين اجد الحل يا مشرفي المنتدى
مع العلم اني سويت الكود التالي لكن يتم تعبئة الداتاء على اخر تحديد في التشك بوكس
كود :
For Each x As Object In CheckedListBox1.CheckedItems
           Dim sql = ("select *from schiool_tab where class=@class")
           Dim cmd As New SqlCommand(sql, sqlconn)
           cmd.Parameters.AddWithValue("class", x)
           Dim da As New SqlDataAdapter
           Dim dt As New DataTable
           da.SelectCommand = cmd
           dt.Clear()
           da.Fill(dt)
           dgv2.DataSource = dt
       Next

PHP كود :
Dim dt As New DataTable
For Each x As Object In CheckedListBox1.CheckedItems
    Dim sql 
= ("select * from schiool_tab where class=@class")
    Dim cmd As New SqlCommand(sqlsqlconn)
    cmd.Parameters.AddWithValue("@class"x)
    Dim da As New SqlDataAdapter(cmd)
    da.Fill(dt)
Next
dgv2
.DataSource dt 
شكراً لك هذا هو المطلوب