مشكلة فى كود امر وارد الي مخزن - نسخة قابلة للطباعة

كود :

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