تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اريد كود رسالة تنبيه datagridview فارغة
#1
محتاج كود عندما احذف كل ما يظهر في الداتا جريدفيو  وفي حالة الضغط مرة أخرى على زر الحذف تطلع رسالة تنبيه على أن الداتا جريدفيو فارغة
وشكرا لكم

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 
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم الجملة الشرطية التالية تنفذ كود الحذف اذا كانت الداتا غرايد فيها صفوف
واذا كانت فارغة ستظهر رسالة انها فارغة ويتم الخروج من امر الحذف
كود :
 If DataGridView1.Rows.Count > 0 Then
           'هنا كود الحذف
       Else
           MsgBox("الداتا غرايد فارغة ولايوجد فيها صفوف")
           Exit Sub
       End If
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
اخي الكريم

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

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

كرا لك أخي جزاك الله على فعل الخير
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم