[911]

كود :

Imports System.Data.OleDb

Public Class Form1

   Dim DT As New DataTable
   Dim totals() As Integer
   Dim titles() As String = {"ذكر", "أنثى"}

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       '=========================
       fillcboSubject()
       '=========================
       LoadDataGridView_Subject_Gender()
   End Sub

   Private Sub fillcboSubject()
       'تحميل بيانات المواد في الكومبوبكس
       Subjects_Load()
       '==============================
       ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
       ComboBox1.DataSource = SubjectDT
       ComboBox1.DisplayMember = "Subject"
       ComboBox1.ValueMember = "ID_Subject"
       ComboBox1.SelectedIndex = -1
       'ComboBox1.Text = "المادة"
   End Sub

   Private Sub LoadDataGridView_Subject_Gender()
       Try

           Dim id = ComboBox1.SelectedValue
           DT.Clear()
           Dim DA As New OleDbDataAdapter("SELECT Subjects.Subject, Teachers.Gender AS Gender, Count(Teachers.ID_Teacher) AS total FROM Teachers,Subjects where (Teachers.ID_Subject = Subjects.ID_Subject) and (Teachers.ID_Subject = " & ComboBox1.SelectedValue & ") GROUP BY Subjects.Subject, Teachers.Gender", con)

           DA.Fill(DT)
           DataGridView1.DataSource = DT
           Data_GridView()

           Dim male As Integer = (From x In DT Where x("Gender").Equals("ذكر") Select x("total")).FirstOrDefault
           Dim female As Integer = (From x In DT Where x("Gender").Equals("أنثى") Select x("total")).FirstOrDefault
           totals = {male, female}

       Catch ex As Exception
       End Try
   End Sub

   Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
       LoadDataGridView_Subject_Gender()
       Chart1.Series(0).Points.DataBindXY(titles, totals)
   End Sub


   Private Sub Data_GridView()
       DataGridView1.Columns(0).HeaderText = " المادة"
       DataGridView1.Columns(1).HeaderText = " الجنس"
       DataGridView1.Columns(2).HeaderText = " المجموع"
   End Sub

End Class