السلام عليكم
لدي اسماء مخزنة في قاعدة البيانات استعرضها في الفورم بشكل طبيعي
أريد فقط عند اختيار موظف وتظهر بياناته في التكست بوكس ، وعند الضغط على البوتين المحدد تتجه البيانات المحددة إلى الداتا قريد حتى استطيع مستقبلاً أن ارسلها إلى ملف أكسل أو اطبعها.
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To dgv_employees.Rows.Count - 1
If dgv_employees.Rows(i).Cells(0).Value = ID.Text Then
MsgBox("هذا الموظف سبق وتم اضافته من قبل")
Exit Sub
End If
Next
Dim x As Integer
dgv_employees.Rows.Add()
x = dgv_employees.Rows.Count - 1
dgv_employees(0, x).Value = ID.Text
dgv_employees(1, x).Value = Name_Emp.Text
dgv_employees(2, x).Value = ID_Emp.Text
dgv_employees(3, x).Value = grade_Emp.Text
End Sub
الف شكر استاذي الفاضل صبحي
و الله يعطيك العافية
أستاذ صبحي ممكن طلب اخر
كيف احذف احد الصفوف؟
(28-04-23, 12:27 AM)أبووسم كتب : [ -> ]
كود :
If Not dgv_employees.CurrentRow.IsNewRow Then
dgv_employees.Rows.Remove(dgv_employees.CurrentRow)
End If
أستاذ صبحي ممكن طلب اخر
كيف احذف احد الصفوف؟
ضعها في اي حدث
كود :
If Not dgv_employees.CurrentRow.IsNewRow Then
dgv_employees.Rows.Remove(dgv_employees.CurrentRow)
End If
الف شكر استاذنا الفاضل و لك تحياتي