[ismaeel]

السلام  عليكم  

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

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

[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

[wahmed]

السلام  عليكم  

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

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

اين اجد الحل يا مشرفي المنتدى
مع العلم اني سويت الكود التالي لكن يتم تعبئة الداتاء على اخر تحديد في التشك بوكس

كود :

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(sql, sqlconn)
    cmd.Parameters.AddWithValue("@class", x)
    Dim da As New SqlDataAdapter(cmd)
    da.Fill(dt)
Next
dgv2.DataSource = dt 


[ismaeel]

شكراً لك هذا هو المطلوب