السلام عليكم
مرفق مشروع للموظفين يجمع فيه الغياب و التأخير
أريد عند البحث عن موظف معين يظهر لي مجموع غيابه و التاخير (إن وجد)
ولكم جزيل الشكر والتقدير
وعليكم السلام ورحمة الله وبركاته
عدل الكود الخاص بالزر مع اضافة الوظيفة الموجودة في الكود التالي :
كود :
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
الف شكر
الكود تمام و عال العال
بارك الله فيك و في علمك