[sidi bibi]

محتاج كود عندما احذف كل ما يظهر في الداتا جريدفيو  وفي حالة الضغط مرة أخرى على زر الحذف تطلع رسالة تنبيه على أن الداتا جريدفيو فارغة

وشكرا لكم

vb.net+vs 2010

PHP كود :

   Private Sub SimpleButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bdelet.Click
        Dim position = DataGridView1.CurrentRow.Cells(1).Value.ToString
        Dim del As DialogResult = MessageBox.Show("هل تريد حذف  " & position, "رسالة الحذف", MessageBoxButtons.YesNo, MessageBoxIcon.Hand)
        If del = DialogResult.No Then
            Return
            ' لا تحذف البيانات
        ElseIf del = DialogResult.Yes Then
            ' إحذف البيانات
        End If
        Try
            Dim sql As String = " DELETE FROM info WHERE [id]=" & Int(Me.DataGridView1.CurrentRow.Cells(0).Value)
            '                                                                                         ^^^^^^^^^^^^^^
            '                                                                                            ID رقم
            Dim comm As New OleDb.OleDbCommand(sql, conn)

            conn.Open()
            Dim result As Integer = comm.ExecuteNonQuery
            conn.Close()

            If result > 0 Then
                Me.DataGridView1.Rows.Remove(Me.DataGridView1.CurrentRow)
                MessageBox.Show("تمت بنجاح", "عملية الحذف", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                updating()
            Else
                MessageBox.Show("لم تحدد الإختيار", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            End If

        Catch ex As Exception
            MessageBox.Show("لم تحدد الإختيار", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        End Try
    End Sub 


[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم الجملة الشرطية التالية تنفذ كود الحذف اذا كانت الداتا غرايد فيها صفوف
واذا كانت فارغة ستظهر رسالة انها فارغة ويتم الخروج من امر الحذف

كود :

 If DataGridView1.Rows.Count > 0 Then
           'هنا كود الحذف
       Else
           MsgBox("الداتا غرايد فارغة ولايوجد فيها صفوف")
           Exit Sub
       End If

[معاند الحظ]

اخي الكريم

يمكنك ان تضع شرط للتحقق من عدد العناصر الموجودة في الداتا جريد بحيث اذا كانت اكبر من 0 فانه يقوم بالحذف
واذا كانت تساوي 0 يضهر رسالة بانه لاتوجد عناصر لحذفها

[sidi bibi]

(26-05-20, 04:12 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم الجملة الشرطية التالية تنفذ كود الحذف اذا كانت الداتا غرايد فيها صفوف
واذا كانت فارغة ستظهر رسالة انها فارغة ويتم الخروج من امر الحذف

كود :

 If DataGridView1.Rows.Count > 0 Then
           'هنا كود الحذف
       Else
           MsgBox("الداتا غرايد فارغة ولايوجد فيها صفوف")
           Exit Sub
       End If

كرا لك أخي جزاك الله على فعل الخير