[حريف برمجة]

اولاً انا عندي الاصدار 2010 وشغلت مثالك وعدلته ولكن لو رفعته لك لن يشتغل عندك !

الخطوات اللي راح تعملها لتشوف النتيجة :

1 - فرغ الداتا قريد من الأعمدة اتركها فارغة بدون اعمده ، كلك يمين على الداتاقريد واختار Edit Columns بعدين اختار Remove لجميع الأعمدة حتى تكون الداتاقريد فارغة نهائي من الأعمدة .

2 - ضع الكود كامل في الفورم امسح كل الاكواد اللي في الفورم وضع الاكواد التالية :

كود :

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\MyData.mdb")

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim dp As New OleDbDataAdapter("SELECT name, Count(subject) AS TotalSubject, TotalSubject/2 AS Points FROM(MyTable) GROUP BY MyTable.name", Conn)
        Dim ds As New DataSet

        dp.Fill(ds)
        DGV_StatisticsN.DataSource = ds.Tables(0)
    End Sub
End Class

وشغل وشوف النتيجة ،، ودعواتك ،،

بالتوفيق