منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اريد كود رسالة تنبيه datagridview فارغة - نسخة قابلة للطباعة

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



اريد كود رسالة تنبيه datagridview فارغة - sidi bibi - 26-05-20

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

vb.net+vs 2010
PHP كود :
   Private Sub SimpleButton2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles bdelet.Click
        Dim position 
DataGridView1.CurrentRow.Cells(1).Value.ToString
        Dim del 
As DialogResult MessageBox.Show("هل تريد حذف  " position"رسالة الحذف"MessageBoxButtons.YesNoMessageBoxIcon.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(sqlconn)

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

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

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



RE: اريد كود رسالة تنبيه datagridview فارغة - ابراهيم ايبو - 26-05-20

السلام عليكم ورحمة الله وبركاته
اخي الكريم الجملة الشرطية التالية تنفذ كود الحذف اذا كانت الداتا غرايد فيها صفوف
واذا كانت فارغة ستظهر رسالة انها فارغة ويتم الخروج من امر الحذف
كود :
 If DataGridView1.Rows.Count > 0 Then
           'هنا كود الحذف
       Else
           MsgBox("الداتا غرايد فارغة ولايوجد فيها صفوف")
           Exit Sub
       End If



RE: اريد كود رسالة تنبيه datagridview فارغة - معاند الحظ - 26-05-20

اخي الكريم

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


RE: اريد كود رسالة تنبيه datagridview فارغة - sidi bibi - 26-05-20

(26-05-20, 04:12 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم الجملة الشرطية التالية تنفذ كود الحذف اذا كانت الداتا غرايد فيها صفوف
واذا كانت فارغة ستظهر رسالة انها فارغة ويتم الخروج من امر الحذف
كود :
 If DataGridView1.Rows.Count > 0 Then
           'هنا كود الحذف
       Else
           MsgBox("الداتا غرايد فارغة ولايوجد فيها صفوف")
           Exit Sub
       End If

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