[ربيع]

نضيف صفحة جديدة للمشروع اسمها Basket، سوف يكون فيها من الأدوات ما يلي:



نختار أداة GridView ونجعل اسمها: viewer، ثم نضيف إليها عمود لإزالة البرنامج من السلة:





في حدث تحميل الصفحة نكتب:

:#C

كود :

[align=left]try
{
    if (Session.Count == 0) { err.Text = "<br />لا يوجد برامج في سلة المشتريات"; Button1.Visible = false; return; }

    List<int> prog = new List<int>();
    foreach (var p in Session) prog.Add(Convert.ToInt32(p));

    DB.ProgramsDB db = new DB.ProgramsDB();

    var data = from d in db.Programs
               where prog.Contains(d.ID)
               select new { _ = d.ID, اسم_البرنامج = d.ProgName, السعر = d.Price };

    decimal am = 0;
    foreach (var d in data) am += d.السعر;

    Amount.Text = string.Format("المبلغ الإجمالي: {0} دولار.", am.ToString("00.00"));

    viewer.DataSource = data;
    viewer.DataBind();
}
catch { }
[/align]

:VB

كود :

[align=left]Try
    If Session.Count = 0 Then
        err.Text = "<br />لا يوجد برامج في سلة المشتريات"
        Button1.Visible = False
        Return
    End If

    Dim prog As New List(Of Integer)()
    For Each p In Session
        prog.Add(Convert.ToInt32(p))
    Next p

    dim db As new DB.ProgramsDB();

    Dim data = From d In db.Programs
               Where prog.Contains(d.ID)
               Select New With {Key ._ = d.ID, Key .اسم_البرنامج = d.ProgName, Key .السعر = d.Price}

    Dim am As Decimal = 0
    For Each d In data
        am += d.السعر
    Next d

    Amount.Text = String.Format("المبلغ الإجمالي: {0} دولار.", am.ToString("00.00"))

    viewer.DataSource = data
    viewer.DataBind()
Catch
End Try
[/align]

داخل حدث RowCommand التابع للأداة GridView والتي اسميناها viewer:



نكتب:

:#C

كود :

[align=left]if (e.CommandName == "remove")
{
    try
    {
        Session.Remove(viewer.Rows[Convert.ToInt32(e.CommandArgument.ToString())].Cells[1].Text);
        Page_Load(null, null);
    }
    catch { }
}
[/align]

:VB

كود :

[align=left]If e.CommandName = "remove" Then
    Try
        Session.Remove(viewer.Rows(Convert.ToInt32(e.CommandArgument.ToString())).Cells(1).Text)
        Page_Load(Nothing, Nothing)
    Catch
    End Try
End If[/align]