[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)