[mhmd_911]

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

هذا تعديل يمشي الحال مؤقتا الين تصلح قاعدة البيانات

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Public con As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DB.accdb")
    Public dt As New DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        loading()
    End Sub

    Public Sub loading()
        dt.Clear()
        Dim cmd As New OleDbCommand("select * from color", con)
        con.Open()
        dt.Load(cmd.ExecuteReader)
        DataGridView1.DataSource = dt
        con.Close()

        Me.Label4.Text = 0
        Me.Label5.Text = 0
        Me.Label6.Text = 0

        Dim dadapt As New OleDbDataAdapter("SELECT hzaa, SUM(mach) AS mach FROM color GROUP BY hzaa", con)
        Dim tab As New DataTable
        dadapt.Fill(tab)
        For Each r In tab.Rows
            If r.item("hzaa") = "حذاء احمر" Then Me.Label4.Text = r.item("mach")
            If r.item("hzaa") = "حذاء اخضر" Then Me.Label5.Text = r.item("mach")
            If r.item("hzaa") = "حذاء اصفر" Then Me.Label6.Text = r.item("mach")
        Next
    End Sub

End Class 


بس اقولك من الحين هذه الطريقة مرة غلط.