طريقة ملئ gridview بدون الاعتماد على قاعدة بيانات

الامر بسيط ان شاء الله ..

بداية قم بعمل class يحتوى على البيانات الاساسية للمنتج .. يعنى مثلا

 public class Product
    {
        public int ID { get; set; }
        public string ProductName { get; set; }
        public decimal Price { get; set; }
    }

بعد ذلك .. يتبقى ان تقوم بملء List من هذه المنتجات ... بناء على اختيار العميل مثلا ..

فيصبح عندك

List<Product>

وقم برفعها على الـ Session >> ومن ثم تقوم بإضافتها كـ DataSource للـ GridView

بالنسبة للحذف .. قم بعمل لينك فى الجريد عن طريق إضافة Column عبارة عن LinkButton مثلا ..

وفى الـ LinkButton1_Click ... قم بإيجاد رقم الصف اللى تم الضغط عليه من قبل المستخدم .. ،،،بيكون ترتيبه هو نفس ترتيب هذا المنتج فى الـ List .. بتقوم بمسحه بـ RemoveAt وتقوم بإعادة تعيين الـ DataSource ورفع الـ List الجديدة على الـ Session

إذا أردت أى توضيح فقط اخبرنى .. ولو بتريد مثال .. ان شاء الله بعمل لك ..

السلام عليكم

ان امكن متال عن ما قلت,حتى لو اني لا استعمل c# بل vb.net

ان امكن طريقة اضافة textbox الى gridview وطريقة التعامل معه في حالة التغيير

جزاك الله خيرا

حسنا اخى الكريم .. سأقوم باعداد مثال لك حالا .. وبـ vb.net ايضا ;)

ان شاء الله

السلام عليكم

راجع المرفق >> ولو فيه اى استفسار .. فقط اضف هنا :)

WebSite3.rar

ما شاء الله عليك أخي وماذا بعد؟

هدا ما كنت أبحت عنه

جزاك الله خيرا

سأحاول تطبيقه غدا بادن الله

أشكرك مجددا

اخى الكريم ,.,. معك فى اى استفسار ان شاء الله :) واهلا بك

أخي الكريم

حاولت تطبيق متالك على الموقع الدي انا في طور انشائه

لدي صفحتان صفحة المنتجات وصفحة التي تعرض المنتجات التي اختارها الشخص لكرائها(reservation) الفكرة متلها متل فكرة مواقع التسويق

بحيت ان بصفحة المنتجات لدي datalist أعرض عن طريقه المنتجات

وحين يضغط الشخص على نتج معين فهدا ما أعتمده

    Protected Sub DataProduits_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataProduits.ItemCommand
        Try
            Dim Item As DataListItem
            Item = DataProduits.Items(e.Item.ItemIndex)
            Dim ref As Label = Item.FindControl("Ref")
            Dim Design As Label = Item.FindControl("Designation")
            Dim prix As Label = Item.FindControl("Prix")
            Response.Redirect("Reservation.aspx?Ref=" & ref.Text & "&Designation=" & Design.Text & "&Prix=" & prix.Text, False)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

وفي الصفحة التانية التي تعرض ما اختاره الشخص

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            Dim Engin1 As New Engins
            With Engin1
                .Ref = Request.QueryString("Ref").ToString
                .Designation = Request.QueryString("Designation").ToString
                .Prix = Request.QueryString("Prix").ToString
            End With
            Dim EnginChoisi As List(Of Engins) = DirectCast(Session("EnginList"), List(Of Engins))
            EnginChoisi.Add(Engin1)
            Session("EnginList") = EnginChoisi
                      RemplirGrid()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

ويظهر هدا المشكل

ex.Message = "La référence d'objet n'est pas définie à une instance d'un objet."

بهدا السطر

EnginChoisi.Add(Engin1)

ان كان شرحي معقدا فسأرفع لك المشروع

وجزاك الله اخير

هذا طبيعى انه يحصل ...

هذا الخطأ معناه انك لم تقم بتعريف EnginChoisi

وفى السطر

            Dim EnginChoisi As List(Of Engins) = DirectCast(Session("EnginList"), List(Of Engins))

من فين تم رفع هذه الـ List فى الـ SEssion ؟

واقترح للحل .. أن تضيف هذا السطر فى الـ Page_Load

If Not Page.IsPostBack Then
            Dim P_List As New List(Of Engins)
            Session("EnginList") = P_List
          End If

حتى يقوم برفع List فى الـ Session فى اول مرة للصفحة

اعتقد ان الاصح ان تتم الاضافة الى session في حدث DataProduits_ItemCommand مع التأكد انها ليست فارغة

Dim EnginChoisi As List(Of Engins) 

if Session("EnginList") is nothing then
  EnginChoisi  =new  List(Of Engins)  
else

  EnginChoisi   = DirectCast(Session("EnginList"), List(Of Engins))
end if
' هنا تتم الاضافة وبعد ذلك تنتقل الى صفحة العرض مع استخدام الكود اعلاه ايضا لضمان عدم حدوث خطأ .

أخي وماذا بعد؟

بالنسبة للمتغير EnginChoisi

فلقد قمت بتعريفه

أعتقد انك لم تلحظه بالكود الدي وضعته

سأضيف الكود الدي قلت لي

أخي TareqVB

أعتقد ان المتغير EnginChoisi سيفقد ما يحتويه بمجرد الانتقال الى الصفحة التانية

أليس كدلك؟؟

السلام عليكم

نجح الامر لحد الآن والحمد لله

وهدا بفضلكم وبفضل الأخ وماذا بعد؟

لقد استعملت global.asax وهدا ما أضفت له

    Public Shared PEngins As List(Of Engins)
    Public Shared _Engin As New Engins

وفي كلتا الصفحتين اقوم باستدعاء global asax

المشكل الوحيد المتبقي هو لمادا في كل مرة أعود لصفحة المنتجات لاختار منتج آخر

واضيفه يختفي الاول الدي اضفته كأنني سأضيف لأول مرة منتجا للقائمة

وهدا كود datalist

    Protected Sub DataProduits_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataProduits.ItemCommand
        Try
            Dim Item As DataListItem
            Item = DataProduits.Items(e.Item.ItemIndex)
            Dim ref As Label = Item.FindControl("Ref")
            Dim Design As Label = Item.FindControl("Designation")
            Dim prix As Label = Item.FindControl("Prix")
            Session("Ref") &= ref.Text & "|"
            Session("Designation") &= Design.Text & "|"
            Session("Prix") &= prix.Text & "|"
            Session("NombreProduit") = Session("NombreProduit") + 1

            With _Engin
                .Ref = ref.Text
                .Designation = Design.Text
                .Prix = prix.Text
            End With
            PEngins = DirectCast(Session("EnginList"), List(Of Engins))
            PEngins.Add(_Engin)
            Session("EnginList") = PEngins
            Response.Redirect("Reservation.aspx", False)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

وهدا كود بالصفحة التانية التي تعرض المنتجات المختارة

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
             If Not Page.IsPostBack Then
                PEngins = DirectCast(Session("EnginList"), List(Of Engins))
                Session("EnginList") = PEngins

                RemplirGrid()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

هدا لعرض المنتجات ب gridview

   Sub RemplirGrid()
        Try
            PEngins = DirectCast(Session("EnginList"), List(Of Engins))
            GREngins.DataSource = PEngins
            GREngins.DataBind()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

وهدا للحدف يعمل جيدا

    Sub SuppEngin_Click(ByVal Sender As Object, ByVal e As EventArgs)
        Try
            Dim Row As GridViewRow = DirectCast(DirectCast(Sender, LinkButton).NamingContainer, GridViewRow)
            PEngins = DirectCast(Session("EnginList"), List(Of Engins))
            PEngins.RemoveAt(Row.RowIndex)
            Session("EnginList") = PEngins
            RemplirGrid()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

طيب ايه رأيك لو لم تستخدم الـ global.asax

وتستبدل الكود هذا فى الـ DataProduits_ItemCommand

    Protected Sub DataProduits_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataProduits.ItemCommand
        Try
            Dim Item As DataListItem
            Item = DataProduits.Items(e.Item.ItemIndex)
            Dim ref As Label = Item.FindControl("Ref")
            Dim Design As Label = Item.FindControl("Designation")
            Dim prix As Label = Item.FindControl("Prix")
            Session("Ref") &= ref.Text & "|"
            Session("Designation") &= Design.Text & "|"
            Session("Prix") &= prix.Text & "|"
            Session("NombreProduit") = Session("NombreProduit") + 1

            With _Engin
                .Ref = ref.Text
                .Designation = Design.Text
                .Prix = prix.Text
            End With
			Dim PEngins as new List(Of Engins)
			IF NOT Session("EnginList") Is Nothing THEN
				PEngins = DirectCast(Session("EnginList"), List(Of Engins))
			ELSE
				Session("EnginList") = PEngins
			END IF
            PEngins.Add(_Engin)
            Session("EnginList") = PEngins
            Response.Redirect("Reservation.aspx", False)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

وكود صفحة العرض

	Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
             If Not Page.IsPostBack Then
                Dim PEngins AS New List(Of Engins)
				If Session("EnginList") Is Nothing THEN
					Session("EnginList") = PEngins
				END IF
				PEngins = DirectCast(Session("EnginList"), List(Of Engins))
                RemplirGrid()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

جرب وعرفنى النتيجة

أخي الكريم

نفس الشيء

لايحتفظ بالمنتجات التي سبق وتم اختيارها

هل من الممكن ارفاق الصفحتين الخاصتين بالعرض والرفع .. ؟؟ :)

طبعا

لحظة لو سمحت

تفضل أخي

وأعتدر عن تكليفك معي

جزاك الله كل خير

Location.rar

تم الحل الحمد لله .. فقط استبدل Page_Load لصفحة الـ Produits لتكون كالتالى

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        conn = New SqlConnection(ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)
        Dim NombreEngins As Integer
        Try
            If Not Page.IsPostBack Then
                SQL(0) = "SELECT NOM_CATEGORIE,CategorieID FROM CATEGORIES"
                If conn.State <> ConnectionState.Open Then
                    conn.Open()
                End If
                SQLCMD = New SqlCommand(SQL(0), conn)
                SQLDTA = New SqlDataAdapter(SQLCMD)
                SQLDTA.Fill(DTS, "Categories")
                If DTS.Tables("Categories").Rows.Count <> 0 Then
                    For i As Integer = 0 To DTS.Tables("Categories").Rows.Count - 1
                        SQL(3) = "SELECT COUNT(*) FROM ENGINS WHERE CategorieID=" & DTS.Tables("Categories").Rows(i).Item(1)
                        SQLCMD = New SqlCommand(SQL(3), conn)
                        NombreEngins = SQLCMD.ExecuteScalar
                        trCategories.Nodes.Add(New TreeNode(DTS.Tables("Categories").Rows(i).Item(0).ToString _
                        & " (" & NombreEngins & ")"))
                    Next
                End If
                Dim Pengins As New List(Of Engins)
               If Session("EnginList") Is Nothing Then
                    Session("EnginList") = Pengins
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

والسبب انك فى كل مرة بتعيد تعريف الـ Session بـ List فارغة

السلام عليكم

أخي وماذا بعد؟

مادا عساي أقول

لقد كنت خير عون

جزاك الله خيرا وتبت الله خطاك

فعلا تم حل المشكل

شكرا جزيـــلا لك