[العيدروس]

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

اريد ان لما يكون يكون نفس المنتج لا يتكرر على الداتاقريد بارك الله فيكم

[alfaiz678]

http://vb4arb.com/vb/showthread.php?tid=25363
http://vb4arb.com/vb/showthread.php?tid=26442

[العيدروس]

شكرا اخي الفايز جربت البحث و محاولة ايجاد الحل و ما وصلت صديقي

[asemshahen5]

PHP كود :

       For i = 0 To Dgv.Rows.Count - 1
            If Dgv.Rows(i).Cells(2).Value = cmb_ProdectName.Text Then
                Dgv.Rows(i).Cells(4).Value += 1
                Return
            End If
        Next
        Dgv.Rows.Add(Txt_InvNum.Text, Txt_Codeprodect.Text, cmb_ProdectName.Text, Txt_UnitPrice.Text, Txt_Qtn.Text, Txt_SubTotal.Text) 


[العيدروس]

شكرا استاذ asemshahen و بارك الله فيك نقلت الكود و نسخته بالملف لكن لم تقوم بالعملية و مازال المنتجات تظهر تحت بعضها

[has123]

الجدول Tableposdetails
لازم تغير نوع uniteprice الى رقم مزدوج Double
ولازم تغير نوع SubTotal الى رقم مزدوج Double

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try


            Cn.Open()
            Cmd = New OleDbCommand("Update Tableposdetails Set Qty=Qty+@Qty , SubTotal=SubTotal+@SubTotal Where codeproduct=@codeproduct And InvoiceNo=@InvoiceNo", Cn)
            With Cmd.Parameters
                .AddWithValue("@Qty", Me.TextBox4.Text)
                .AddWithValue("@SubTotal", Me.TextBox8.Text)
                .AddWithValue("@codeproduct", Me.TextBox1.Text)
                .AddWithValue("@InvoiceNo", Me.TextBox5.Text)
            End With
            If Cmd.ExecuteNonQuery() = 0 Then
                Cmd = New OleDbCommand("Insert into Tableposdetails ( InvoiceNo , codeproduct , nameproduct , uniteprice , Qty , SubTotal) Values ( @InvoiceNo , @codeproduct , @nameproduct , @uniteprice , @Qty , @SubTotal)", Cn)
                With Cmd.Parameters
                    .AddWithValue("@InvoiceNo", Me.TextBox5.Text)
                    .AddWithValue("@codeproduct", Me.TextBox1.Text)
                    .AddWithValue("@nameproduct", Me.TextBox2.Text)
                    .AddWithValue("@uniteprice", Me.TextBox3.Text)
                    .AddWithValue("@Qty", Me.TextBox4.Text)
                    .AddWithValue("@SubTotal", Me.TextBox8.Text)
                End With
                Cmd.ExecuteNonQuery()
            End If
            Cn.Close()

            loadrecord()

            Pid = ""

            Call Update_Tablepos()

            Me.TextBox1.Text = String.Empty
            Me.TextBox2.Text = String.Empty
            Me.TextBox3.Text = String.Empty
            Me.TextBox4.Text = String.Empty


        Catch ex As Exception
            Cn.Close()
            MsgBox(ex.Message, vbCritical)
        End Try
    End Sub 


[العيدروس]

تمام بارك الله اخي و جزاك الله خيرا