سوال على استعلام

السلام عليكم ...

الكود يجلب السطر الموافق ثم يجعله كمصدر بيانات اللــ Grid .. ثم يجلب السطر التالي ثم يجعله مصدر بيانات الــ Grid .. ملغيا المصدر السابق ...و هكذا فعلا يظهر سطر واحد (آخر سطر فقط ) ..

Dim idList As New List(Of [String])()

For i As Integer = 0 To DataList1.Items.Count - 1
Dim row As DataListItem = DataList1.Items(i)
Dim rdd1 As Boolean = CType(row.FindControl("CheckBox1"), CheckBox).Checked
Dim txt As String = CType(row.FindControl("label4"), Label).Text
If rdd1 = True Then
idList.Add (txt)
End If
Next

ob.sql = "select g_name,g_price,g_details from goods where s_id in (" & String.Join(",", idList.ToArray()) & ")"
ob.da = New SqlDataAdapter(ob.sql, ob.con)
ob.ds = New DataSet
ob.da.Fill(ob.ds)
GridView1.DataSource = ob.ds.Tables(0)
GridView1.DataBind()

تعديل :

تم تعديل الكود بعد مشاركة الأخ و تنبيهه لوجود خطأ ..

houssam11350_11350 كتب:

السلام عليكم ...

الكود يجلب السطر الموافق ثم يجعله كمصدر بيانات اللــ Grid .. ثم يجلب السطر التالي ثم يجعله مصدر بيانات الــ Grid .. ملغيا المصدر السابق ...و هكذا فعلا يظهر سطر واحد (آخر سطر فقط ) ..

Dim idList As New List(Of [String])()

For i As Integer = 0 To DataList1.Items.Count - 1
Dim row As DataListItem = DataList1.Items(i)
Dim rdd1 As Boolean = CType(row.FindControl("CheckBox1"), CheckBox).Checked
Dim txt As String = CType(row.FindControl("label4"), Label).Text
If rdd1 = True Then
idList.Add (txt)
End If
Next

ob.sql = "select g_name,g_price,g_details from goods where s_id in (" & String.Join(',', id.ToArray()) & ")"
ob.da = New SqlDataAdapter(ob.sql, ob.con)
ob.ds = New DataSet
ob.da.Fill(ob.ds)
GridView1.DataSource = ob.ds.Tables(0)
GridView1.DataBind()

-----------------------

مشكور اخي العزيز . على ردك لي . والله يجلعه في ميزان حسناتك .. لكن اخي العزيز يطلع لي خطاء عند القوس هذه String.Join(

السلام عليكم ..

صحيح ..

و الكود الصحيح

String.Join(",", idList.ToArray())

و كامل الاستعلام :

ob.sql = "select g_name,g_price,g_details from goods where s_id in (" & String.Join(",", idList.ToArray()) & ")"