30-05-20, 05:17 PM
31-05-20, 12:06 AM
(30-05-20, 05:17 PM)ahmedbezia كتب : [ -> ]السلام عليكم
كودمسح بينات اخر صف في الدتا قريد
و عليكم السلام و رحمة الله و بركاته
كود :
If DataGridView1.Rows.Count > 0 Then
DataGridView1.Rows.RemoveAt(DataGridView1.RowCount - 1)
End If31-05-20, 12:24 AM
السلام عليكم ورحمة الله وبركاته
جزيل الشكر لاخي waelx على مايقدمه لاخوته في المنتدى
واحب ان اضيف لو كانت الداتا غرايد فيها أخر صف فارغ
جزيل الشكر لاخي waelx على مايقدمه لاخوته في المنتدى
واحب ان اضيف لو كانت الداتا غرايد فيها أخر صف فارغ
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.Rows.Count > 0 Then
' اذا كان يوجد صف فارغ نكتب التالي
DataGridView1.Rows.RemoveAt(DataGridView1.Rows.Count - 2)
' واذا كان لايوجد صف فارغ نكتب التالي
DataGridView1.Rows.RemoveAt(DataGridView1.Rows.Count - 1)
End If
End Sub31-05-20, 01:00 AM
PHP كود :
Dim DgvCountRow As Integer = 0
If DGV.AllowUserToAddRows = True Then
DgvCountRow = DGV.RowCount - 2
Else
DgvCountRow = DGV.RowCount - 1
End If
أي يصبح الكود كالتالي :
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim DgvCountRow As Integer = 0
If DGV.AllowUserToAddRows = True Then
DgvCountRow = DGV.RowCount - 2
Else
DgvCountRow = DGV.RowCount - 1
End If
If DataGridView1.Rows.Count > 0 Then
DataGridView1.Rows.RemoveAt(DgvCountRow)
End If
End Sub
31-05-20, 01:19 AM
(31-05-20, 12:24 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم ورحمة الله وبركاته
جزيل الشكر لاخي waelx على مايقدمه لاخوته في المنتدى
واحب ان اضيف لو كانت الداتا غرايد فيها أخر صف فارغ
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If DataGridView1.Rows.Count > 0 Then
' اذا كان يوجد صف فارغ نكتب التالي
DataGridView1.Rows.RemoveAt(DataGridView1.Rows.Count - 2)
' واذا كان لايوجد صف فارغ نكتب التالي
DataGridView1.Rows.RemoveAt(DataGridView1.Rows.Count - 1)
End If
End Sub
تسلم أستاذي
كلامك تاج على رأسي
31-05-20, 01:28 AM
استغفر الله اخي Waelx
كلنا تلاميذ في هذا المنتدى