[kharbatha]

تم الحل بتغيير الكود الى الكود التالي

كود :

 Private Sub INSERTDGV()

       Try
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Dim cmd As New SqlCommand(" select  *  from View_Store  where  Prd_Code='" + Prd_Code.Text + "'", Con)
           Dim dt2 As New DataTable
           Dim adp As New SqlDataAdapter(cmd)
           adp.Fill(dt2)
           If dt2.Rows.Count > 0 Then
               For i As Integer = 0 To dgvSale.Rows.Count - 1
                   If dgvSale.Rows(i).Cells(1).Value = Prd_Code.Text Then
                       dgvSale(5, i).Value = Val(TXTQty.Text) + Val(dgvSale(5, i).Value)
                       dgvSale(6, i).Value = dgvSale(5, i).Value * dgvSale(4, i).Value
                       dgvSale(8, i).Value = dgvSale(5, i).Value * dgvSale(7, i).Value

                       Exit Sub
                   End If
               Next
               dgvSale.Rows.Add()
               Dim x As Integer
               x = dgvSale.Rows.Count - 1
               dgvSale(0, x).Value = dt2.Rows(0).Item("Prd_ID")
               dgvSale(1, x).Value = dt2.Rows(0).Item("Prd_Code")
               dgvSale(2, x).Value = dt2.Rows(0).Item("Prd_Name")
               dgvSale(3, x).Value = dt2.Rows(0).Item("UnitName")
               dgvSale(4, x).Value = dt2.Rows(0).Item("SellPrice")
               dgvSale(7, x).Value = dt2.Rows(0).Item("BuyPrice")
               dgvSale(5, x).Value = TXTQty.Text
               dgvSale(6, x).Value = dgvSale(5, x).Value * dgvSale(4, x).Value
               dgvSale(8, x).Value = dgvSale(5, x).Value * dgvSale(7, x).Value
               TXTQtyAVILABEL.Text = dt2.Rows(0).Item("Qty")
               TXTPrdLimit.Text = dt2.Rows(0).Item("PrdLimit")
               If Val(TXTQtyAVILABEL.Text) < Val(TXTPrdLimit.Text) Then
                   TXTQtyAVILABEL.BackColor = Color.Red
                   MsgBox(" تنبيه الكمية الموجودة اقل من حد الطلب", 0, "")
               Else
                   TXTQtyAVILABEL.BackColor = Color.White
               End If
               Prd_Code.Text = ""
               TXTQty.Clear()
               Prd_Code.Focus()
               InvoiceTotal()
               Invoicebuy()
           End If

           Con.Close()
       Catch ex As Exception
           Con.Close()
       End Try
   End Sub