[Taha Okla]

وعليكم السلام ورحمة الله وبركاته
عدل الكود الخاص بالزر مع اضافة الوظيفة الموجودة في الكود التالي :

كود :

   Function GetCount(pName As String, pState As String) As Integer
       Dim Cs1 As Integer
       Dim ConnF As New OleDbConnection(ConStr)
       Dim cmdC As New OleDbCommand("Select count(Employment) From Notes Where Ename ='" & pName & "' and Employment ='" & pState & "'", ConnF)
       ConnF.Open()
       cmdC.ExecuteNonQuery()
       Cs1 = cmdC.ExecuteScalar()

       ConnF.Close()

       Return Cs1
   End Function


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Try
           Dim dv As DataView = dt_Notes.DefaultView
           dv.RowFilter = " Ename LIKE '%" & ComboBox1.Text & "%' "

           Label1.Text = GetCount(ComboBox1.Text, "غياب")
           Label2.Text = GetCount(ComboBox1.Text, "تأخير")

       Catch ex As Exception
       End Try
       ' ضعه في حدث تكست بوكس تشانج (TextChanged)

   End Sub