[الفيومي116]

اخي الحبيب
الكود الذي استخدمته هو

كود :

Try
           Dim cmd As New OleDbCommand
           cmd.Connection = con

           con.Open()
           Dim HH As String = txtFFtottal.Text
           For i As Integer = 0 To DataGridView2.Rows.Count - 1
               If i > DataGridView1.Rows.Count - 1 Then Exit For
               cmd.CommandText = "insert into Transactiooon (FatoraOutID,TRProdName,TRPRodPrice,QtyOut,FtTotal,PounceTOT,PriceTOT)values(@a1,@a2,@a3,@a4,@a5,@a6,@a7)"


               cmd.Parameters.AddWithValue("@a1", CDbl(DataGridView2.Rows(i).Cells(5).Value))
               cmd.Parameters.AddWithValue("@a2", DataGridView2.Rows(i).Cells(1).Value).ToString()
               cmd.Parameters.AddWithValue("@a3", CDbl(DataGridView2.Rows(i).Cells(2).Value))
               cmd.Parameters.AddWithValue("@a4", CDbl(DataGridView2.Rows(i).Cells(3).Value))
               cmd.Parameters.AddWithValue("@a5", CDbl(DataGridView2.Rows(i).Cells(4).Value))
               cmd.Parameters.AddWithValue("@a6", CDbl(txtFFDesc.Text))
               cmd.Parameters.AddWithValue("@a7", CDbl(txtFFtottal.Text))


               cmd.ExecuteNonQuery()

               i += 1
           Next i
           MessageBox.Show("Done other data")
           cmd.Dispose()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       Finally
           con.Close()

       End Try

تمام وبيحفظ في قاعدة البيانات لكن بيحفظ اول صف في الداتا جريد فيو فقط
يعني لو ادخلت 3 صفوف بيحفظ الاول فقط