تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اريد مساعدة بارك الله فيكم لماذا يخرج هذا مسج الخطاء
#1
لماذا يخرج هذا الخطاء
هذه هو الكود
    Private Sub bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt1.Click, bt2.Click, bt3.Click, bt4.Click, bt5.Click, bt6.Click, bt7.Click, bt8.Click, bt9.Click, bt10.Click, bt11.Click, bt12.Click, bt13.Click, bt14.Click, bt15.Click, bt16.Click, bt17.Click, bt18.Click, bt19.Click, bt20.Click
        Dim btn As Button = DirectCast(sender, Button)
        opencon()
        Dim da As New SqlDataAdapter("select * from tb_Item ", con)
        Dim ds As New DataSet


        da.Fill(ds, "tb_Item")
        ' ds.Dispose()

        con.Close()
        Dim newitem As Boolean = True

        For i = 0 To dt.Rows.Count - 1


            If sender.tag = dt.Rows(i).Item("id_a") And btn.Text = dt.Rows(i).Item("kind") Then
                dt.Rows(i).Item("Count") = dt.Rows(i).Item("Count") + 1
                dt.Rows(i).Item("total") = dt.Rows(i).Item("count") * dt.Rows(i).Item("sill_price")


                newitem = False
                Exit For
            End If
        Next
        If newitem = True Then
          هنا يخرج الخطاء   dt.Rows.Add(sender.tag, btn.Text, ds.Tables("tb_Item").Rows(sender.tag)("sell_price_item"), 1, ds.Tables("tb_Item").Rows(sender.tag)("sell_price_item"))

        End If

        FillGrid(DataGridView1, dt)
        fill_total()
    End Sub


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أريد مساعدة من فضلكم في زر الإضافة waidom 2 1,674 10-06-23, 12:53 PM
آخر رد: mahmoud mostafa 2023
  اريد امثلة على هذه الدوال floor , substr , instr , replce في الاوراكل غدير الصليحي 0 787 14-12-21, 12:51 PM
آخر رد: غدير الصليحي
  اريد دمج استعلامين بسام محمدغانم 6 1,558 10-11-21, 04:50 AM
آخر رد: بسام محمدغانم
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  اريد ربط 3 جداول (relation ship) فى sql server سلام و محبه 0 1,250 23-01-21, 08:10 PM
آخر رد: سلام و محبه
  مساعدة من اخوتي برنامج مبيعات سوبرماركت التعامل مع اكثر من زبون في نفس الوقت Mokhtar-mako 1 1,309 16-01-21, 08:43 PM
آخر رد: moosa_alabri
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 5 3,099 22-11-20, 10:10 PM
آخر رد: sendbad100
  [سؤال] مساعدة في تحليل قاعدة بيانات مشتريات ومبيعات maw2321 1 2,651 09-10-20, 09:28 PM
آخر رد: ali.jamil27
  اريد عمل تواصل بين الادارات عن طريق ال SQL Serverو الدوت نت الحزين اوى 1 1,386 02-07-20, 09:47 AM
آخر رد: kiki
  [كود] محتاج مساعدة في كود stiger 1 1,448 28-05-20, 06:44 AM
آخر رد: stiger

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


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