[حماده ممدوح البحيرى]

(17-12-22, 02:08 PM)kebboud كتب :

(04-12-22, 07:10 AM)حماده ممدوح البحيرى كتب :

(03-12-22, 03:53 PM)عبدالله الدوسري كتب :

كود :

Dim Qty As String = Dgv_prd2.Rows(i).Cells(4).Value

"Update report_Store Set Qty = Qty + " & Qty & " , totalPrice = (Qty + " & Qty & ") * SellPrice Where Prd_ID = @Prd_ID"

الله اعلم أن الكمية السابقة في قاعدة البيانات صفر، 
يجب عليك تعديل الكمية في قاعدة البيانات أولا قبل أن تقوم بعملية ضرب الكمية في السعر
لا يمكن عمل هذا الإجراء في سطر واحد بالطريقة التي ذكرتها أنت.
أو أن تقوم بإعطاء الكمية مباشرة من الـ DataGridView كما وضعت لك المثال.

شكرا لك اخى واستاذى 
تم الحل بفضل الله ثم بفضل خبرتك ومساعدتك لى
اشكرررك جدا

و لكن اشرح لنا كيف تم الحل حتى نستفيد منك و لك الشكر 

اهلا بيك اخى الكريم 
بص انا هحط لك الكود كله بحيث تفهم منه ويمكنك اخذ منه ما يناسبك
دا المفروض بعد م بندوس طباعه فاتورة الكاشير بنفعل الصب دا

كود :

 Public Sub InsertStore()
       '****************************دا عشان مخزن الماركت وبالاخص تقرير المباع يوميا
       '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\


       For i As Integer = 0 To Dgv_prd2.Rows.Count - 1
           Dim _Qty As String = Dgv_prd2.Rows(i).Cells(4).Value
           Dim _price As String = Dgv_prd2.Rows(i).Cells(5).Value
           Dim cmd1 As New SqlCommand("select * from report_Store where Prd_ID =@Prd_ID ", Con)
           cmd1.Parameters.Clear()
           cmd1.Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Dgv_prd2.Rows(i).Cells(1).Value
           Dim dt As New DataTable
           Dim adp As New SqlDataAdapter(cmd1)
           adp.Fill(dt)
           If dt.Rows.Count > 0 Then
               Dim Cmd2 As New SqlCommand
               With Cmd2
                   .Connection = Con
                   .CommandType = CommandType.Text
                   .CommandText = "Update report_Store Set Qty = Qty + " & _Qty & " , BuyPrice = (Qty + " & _Qty & ") * SellPrice Where Prd_ID = @Prd_ID"
                   .Parameters.Clear()
                   .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Dgv_prd2.Rows(i).Cells(1).Value
               End With
               If Con.State = 1 Then Con.Close()
               Con.Open()
               Cmd2.ExecuteNonQuery()
               Con.Close()
               Cmd2 = Nothing
           Else
               Dim Cmd3 As New SqlCommand
               With Cmd3
                   .Connection = Con
                   .CommandType = CommandType.Text
                   .CommandText = "Insert Into report_Store ( Prd_ID,Qty,BuyPrice,SellPrice)values(@Prd_ID,@Qty,@BuyPrice,@SellPrice)"
                   .Parameters.Clear()
                   .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Dgv_prd2.Rows(i).Cells(1).Value
                   .Parameters.AddWithValue("@Qty", SqlDbType.VarChar).Value = _Qty
                   .Parameters.AddWithValue("@BuyPrice", SqlDbType.Decimal).Value = _price * _Qty
                   .Parameters.AddWithValue("@SellPrice", SqlDbType.Decimal).Value = Dgv_prd2.Rows(i).Cells(5).Value
               End With
               If Con.State = 1 Then Con.Close()
               Con.Open()
               Cmd3.ExecuteNonQuery()
               Con.Close()
               Cmd3 = Nothing
           End If
       Next

   End Sub