منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كودمسح بينات اخر صف في الدتا قريد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كودمسح بينات اخر صف في الدتا قريد (/showthread.php?tid=35034)

كودمسح بينات اخر صف في الدتا قريد - ahmedbezia - 30-05-20

السلام عليكم 
كودمسح بينات اخر صف في الدتا قريد

RE: كودمسح بينات اخر صف في الدتا قريد - WaeLx - 31-05-20

(30-05-20, 05:17 PM)ahmedbezia كتب : السلام عليكم 
كودمسح بينات اخر صف في الدتا قريد

و عليكم السلام و رحمة الله و بركاته

كود :
If DataGridView1.Rows.Count > 0 Then
           DataGridView1.Rows.RemoveAt(DataGridView1.RowCount - 1)
       End If


RE: كودمسح بينات اخر صف في الدتا قريد - ابراهيم ايبو - 31-05-20

السلام عليكم ورحمة الله وبركاته
جزيل الشكر لاخي 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


RE: كودمسح بينات اخر صف في الدتا قريد - asemshahen5 - 31-05-20

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 


RE: كودمسح بينات اخر صف في الدتا قريد - WaeLx - 31-05-20

(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


تسلم أستاذي
كلامك تاج على رأسي

RE: كودمسح بينات اخر صف في الدتا قريد - ابراهيم ايبو - 31-05-20

استغفر الله اخي Waelx

كلنا تلاميذ في هذا المنتدى