تقييم الموضوع :
  • 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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد البدء في عمل برنامج متابعه مديونيات ولا اعرف كيف ابداء مروة الشرقاوي 4 96 07-11-16, 04:07 AM
آخر رد: مروة الشرقاوي
  مساعدة في بناء قاعدة hglogtd 4 137 05-10-16, 03:48 PM
آخر رد: hglogtd
  [سؤال] مساعدة في حفظ بيانات من جدولين mosasaad 5 268 22-08-16, 10:25 AM
آخر رد: سعود
  لماذا لايتم حفظ الثواني مع باقي القيم الى قاعدة البيانات؟ سعود 2 385 01-08-16, 11:15 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 221 12-07-16, 07:52 PM
آخر رد: aliday03
  احتاج مساعدة في الداتا جريد فيو Mo_rb 8 301 18-06-16, 04:28 PM
آخر رد: boudyonline
  مساعدة بحفظ محتوى داخل combox داخل قاعدة البيانات او فكرة مقاربه المثال مرفق رهف العريفي 24 746 17-06-16, 03:05 AM
آخر رد: رهف العريفي
  [VB.NET] مساعدة في اتصال ms sql وربطها بالفجوال استديو 2010 Amrjamil 2 147 06-06-16, 03:50 AM
آخر رد: Amrjamil
  اريد اعمل قاعدة بيانات لخزن فيديوهات ابراهيم كركوكي 6 210 05-06-16, 02:34 AM
آخر رد: khodor1985
  اريد اعمل برنامج يخزن اكواد كيف ابراهيم كركوكي 15 421 03-06-16, 11:18 PM
آخر رد: سعود

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


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