[علاء الكبابي]

السلام عليكم
اريد حل هذا اللغز.....
في برمجة زر حفظ في برنامج مبيعات ظهرت مشكلة كالتالي


Private Sub bat_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bat_save.Click
        Dim cmmd As New OleDbCommand
        Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=small cashier.accdb")
        cmmd = New OleDbCommand("insert into orders (id, order_date, user_name, total, cu_name) values (@id, @order_date, @user_name, @total, @cu_name)", con)
        cmmd.Parameters.Add("@id", OleDbType.Integer).Value = txt_nb.Text
        cmmd.Parameters.Add("@order_date", OleDbType.Date).Value = txt_date.Text
        cmmd.Parameters.Add("@user_name", OleDbType.VarChar).Value = txt_cshr.Text
        cmmd.Parameters.Add("@total", OleDbType.Currency).Value = txt_tot.Text
        cmmd.Parameters.Add("@cu_name", OleDbType.VarChar).Value = txt_cunam.Text
        con.Open()
        cmmd.ExecuteNonQuery()


        Dim cmd As New OleDbCommand
        cmd = New OleDbCommand("insert into orders_d (id_o, code, iname_o, price_o, qty_o, tot_o) values (@id_o, @code, @iname_o, @price_o, @qty_o, @tot_o)", con)
        For i As Integer = 0 To dgv1.Rows.Count - 1
            Dim code, nam, qty As String
            Dim price, tot As Double
            code = dgv1.Rows(i).Cells(0).Value
            nam = dgv1.Rows(i).Cells(1).Value
            price = dgv1.Rows(i).Cells(2).Value
            qty = dgv1.Rows(i).Cells(3).Value
            tot = dgv1.Rows(i).Cells(4).Value

            cmd.Parameters.Add("@id_o", OleDbType.Integer).Value = txt_nb.Text
            cmd.Parameters.Add("@code", OleDbType.VarChar).Value = code
            cmd.Parameters.Add("@iname_o", OleDbType.VarChar).Value = nam
            cmd.Parameters.Add("@price_o", OleDbType.Currency).Value = price
            cmd.Parameters.Add("@qty_o", OleDbType.VarChar).Value = qty
            cmd.Parameters.Add("@tot_o", OleDbType.Currency).Value = tot
            cmd.ExecuteNonQuery()


        Next

        con.Close()
        txt_nb.Text = max_order() + 1
        dt.Rows.Clear()
        txt_bay.Clear()
        txt_cunam.Clear()
        txt_cumob.Clear()
        txt_cuadrs.Clear()
        txt_icod.Select()
        clc()


   End Sub



يتم الحفظ في الجدول الاول تمام
ولكن في جدول التفاصيل يتم حفظ اول صنف فقط في الفاتورة بتفاصيله كاملة (السعر والكمية...)
ويكرر هذا الصنف في الحفظ بعدد الاصناف +1
ولا يتم حفظ بقية اصناف الفاتورة