[حريف برمجة]

(07-10-16, 04:57 PM)Codack كتب :

السلام عليكم ورحمة اللع وبركاتة

طلبي كدا وبختصار هو اني عندي داتا جريد فيو وقاعدة بيانات قاعدة بيانات في اسماء متشابة مثل ( حذاء احمر - حذاء اخضر - حذاء اصفر )
وكل حذاء فيه كمية مثل الاحمر فيه 50 والاخضر فيه 30 والاصفر فيه 25

وبعد كدا بضيف في الاحمر ضفت 40 وفي الاخضر 30 والاصفر 80 مثلا


عايز بقى اجمع الاحمر فقط والاخضر فقط والاصفر فقط واضع ناتج كل قيمة  في ليبل تكست مثالا


واكون شاكر

المثال في الملفات المرفقة

عدل الكود الموجود في  Public Sub loading()

ليصبح كالتالي :

كود :

 Public Sub loading()
        dt.Clear()
        Dim cmd As New OleDbCommand("select * from color", con)
        con.Open()
        dt.Load(cmd.ExecuteReader)
        DataGridView1.DataSource = dt
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Label4.Text = 0 : Label5.Text = 0 : Label6.Text = 0

        On Error Resume Next

        cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء احمر" & "'", con)
        Label4.Text = cmd.ExecuteScalar

        cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء اخضر" & "'", con)
        Label5.Text = cmd.ExecuteScalar

        cmd = New OleDbCommand("select sum(mach) from color where hzaa ='" & "حذاء اصفر" & "'", con)
        Label6.Text = cmd.ExecuteScalar

        con.Close()
    End Sub