[Taha Okla]

(27-10-22, 07:36 PM)ali_ahmed12 كتب : السلام عليكم 
هادي محاولتي في حاله انه كميه تساوي صفر يظهر رساله خطا ياريت الي يعرف حل لايبخل علي وشكرا 
مرفق كود برمجي جدول قاعدة بيانات صورة خطا 

كود :

If e.KeyCode = Keys.Enter Then
           Dim qty2 As Integer
           da = New SqlDataAdapter("select qty from products ", Module1.con)
           da.Fill(dt2)
           qty2 = Val(dt2.Rows(0)(5))
           If qty2 <= 0 Then
               Dim rMsg As MsgBoxResult
               rMsg = MsgBox("الكمية المطلوبة غير متاحة،، هل تريد الاستمرار بالتسجيل ؟", vbYesNo + vbExclamation, "تحذير")
               If rMsg = vbNo Then Exit Sub
               ' إذا كان (لا) لا يريد الاستمرار سيتم انهاء الحدث من هنا بدون تنفيذ باقي الكود
               ' وإذا اختر نعم (يعني الاستمرار) سيتم تنفيذ باقي الكود
           Else
               For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
                   If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
                       MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
                       cl()
                       Exit Sub
                   End If
               Next
               Dim row As DataRow = dt.NewRow
               row(0) = txtid.Text
               row(1) = txtlabel.Text
               row(2) = txtqty.Text
               row(3) = txtprice.Text
               row(4) = txtamount.Text
               dt.Rows.Add(row)
               Me.DGV_PRODUCT.DataSource = dt
               cl()
               tootal()
           End If
       End If

جدول قاعدة بيانات لهدا اخترت dt.rows(0)(5)

شو يعني  dt2   الموجودة في كودك  ؟؟؟

العملية ليست نسخ ولصق أكواد ...
تنسخ كود من مكان ما ثم تلصقه هنا .. بدون أن تعرف ما هذا الشيء ..

الأمر بسيط في حال كنت تدرك الأساسيات ..
والله لا أعرف ماذا أقول لك ..

لتستطيع أن تصنع برنامج حسابات عليك أن تعرف أساسيات اللغة التي تصنعه بها :
وفي حال برنامجك : تحتاج لمعرفه أساسيات الـ VB.net  + أساسيات لغة الاستعلام SQL

هناك كتاب يعلم الفيجول بيزك بطريقة بسيطة جداً  وهو كتاب المهندس أحمد جمال.
أنصحك بأن تقرأ كل كلمة فيه ..  
فإن العمر يمضي ولن تجد فرصة كهذا للتعلم بأسلوب مبرمج من الطراز الرفيع ..

كي لا أطيل عليك :
هذا الكود عالجه ليناسب برنامجك ويحسب لك المجموع :

كود :

       '-----------------------------------------------------------------------------------
       Dim ct As String = "Select Sum(qty) As SumOrders  from products Where ID_product = 105" ' رقم المادة مثلاً
       '-----------------------------------------------------------------------------------
       Dim Cmd As SqlCommand = New SqlCommand(ct, con)
       Dim da As SqlDataAdapter = New SqlDataAdapter(Cmd)
       Dim dt As DataTable = New DataTable
       da.Fill(dt)
       Dim qty2 As Integer
       qty2 = dt.Rows(0)("SumOrders").ToString

وفقك الله ..