[كفاح]

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

كود :

Private Sub insert()

       ConnectDb()
       '========================================
       ds = New DataSet
       da = New SqlDataAdapter("SELECT * FROM income", con)
       da.Fill(ds, "income")
       cmd = New SqlCommand("INSERT INTO income (income_id, Suppiler_id_income, date_of_income) VALUES ( @income_id, @Suppiler_id_income, @date_of_income)", con)
       With cmd.Parameters
           .AddWithValue("@income_id", txtofnumorder.Text).DbType = DbType.Int32
           .AddWithValue("@Suppiler_id_income", cmbSuppliers.SelectedValue).DbType = DbType.Int32
           .AddWithValue("@date_of_income", dateoforder.Value).DbType = DbType.Date
       End With
       cmd.ExecuteNonQuery()
       '========================================================
       ds.Clear()
       ds = New DataSet
       da = New SqlDataAdapter("SELECT * FROM IncomeDetail", con)
       da.Fill(ds, "IncomeDetail")
       Dim i As Integer
       Try
           For i = 0 To DataGridView1.RowCount - 1
               Dim itemo As Integer = CInt(DataGridView1.Rows(i).Cells(0).Value)
               Dim Quantity1 As Integer = CInt(DataGridView1.Rows(i).Cells(1).Value)
               '=============================================================

               cmd = New SqlCommand("INSERT INTO IncomeDetail (income_id_det, Product_ID_income, Quantity) VALUES ( @income_id_det, @Product_ID, @Quantity)", con)
               With cmd.Parameters
                   .AddWithValue("@income_id_det", txtofnumorder.Text).DbType = DbType.Int32
                   .AddWithValue("@Product_ID", itemo).DbType = DbType.Int32
                   .AddWithValue("@Quantity", Quantity1).DbType = DbType.Int32
               End With
               cmd.ExecuteNonQuery()
               '===============================================
               cmd = New SqlCommand("UPDATE Product Set Quanty = Quanty+" & Quantity1 & " WHERE Product_ID = '" & itemo & "'", con)
               cmd.ExecuteNonQuery()
           Next
           MessageBox.Show("تم الحفظ بنجاح", AppError, MessageBoxButtons.OK, MessageBoxIcon.Information)
           DisconnectDb()
           FillData()

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

   End Sub

المشكلة الاولي رسالة لا اعرف سببها وهذا نصها  




اما المشكلة الثانية اني من المفترض عند الضغط علي زر حفظ يتم تفريغ الداتا جريد كيف يتم تفريغها 


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