DUVIDA EM COPIAR E INSERIR DADOS NA MESMA TABELA

   

Public Class Cotacao
    Public Property CodigoCotacao As Integer
    Public Property CodigoProduto As Integer
    Public Property Quantidade As Integer
    Friend Property CodigoCotacaoOriginal As Integer


    [ô][ô][ô] <summary>
    [ô][ô][ô] Abre todos os produtos de uma cotacão
    [ô][ô][ô] </summary>
    [ô][ô][ô] <param name=[Ô]Cotacao[Ô]>Codigo da cotação</param>
    [ô][ô][ô] <returns>Colecao de cotacoes para o produto</returns>
    [ô][ô][ô] <remarks>Lembrando que este array podera ser anexado ao seu datasource que os dados aparecerao no grid</remarks>
    Public Function Open(Cotacao As Integer) As Cotacao()
        Dim cotacoes As New List(Of Cotacao)()



        [ô]Claro  que o datareader vc vai implementar conforme o seu banco de dados, conexao e etc
        Dim dr As New Data.SqlClient.SqlDataReader()

        [ô]a partir daqui que a leitura é feita apos o dr devidamente setado
        Using leitor As IDataReader = dr
            While leitor.Read
                Dim ct As New Cotacao()
                ct.CodigoCotacao = leitor([Ô]Codigo_Cotacao[Ô])
                ct.CodigoProduto = leitor([Ô]Codigo_Produto[Ô])
                ct.Quantidade = leitor([Ô]Quantidade[Ô])
                [ô]esta propriedade nos sera util para saber se o original foi modificado ou nao
                ct.CodigoCotacaoOriginal = ct.CodigoCotacao

                cotacoes.Add(ct)
            End While
        End Using


        [ô]pronto, aqui neste ponto ja temos certeza que retornamos todos os items para o codigo de cotacao informado
        Return cotacoes.ToArray()
    End Function


    [ô][ô][ô] <summary>
    [ô][ô][ô] Esta função insere novos registros para cada produto caso alguma das cotações forem alterada
    [ô][ô][ô] </summary>
    [ô][ô][ô] <param name=[Ô]Cotacoes[Ô]> a coleção de cotaçoes com os produtos</param>
    [ô][ô][ô] <returns>verdadeiro se alguma alteraçao foi realizada, falso se nenhuma alteração foi fieta</returns>
    [ô][ô][ô] <remarks>Como ocorrera a modificação das proriedades nao me foi compreendido, podemos rever isto</remarks>
    Public Function Save(Cotacoes As Cotacao()) As Boolean

        Dim alterado As Boolean = False
        Dim NovaCotacao As Integer = 0
        For Each item As Cotacao In Cotacoes
            [ô]verificando item por item e vendo se algum deles esta com o codigo de cotação diferente do original
            If (item.CodigoCotacao <> item.CodigoCotacaoOriginal) Then
                NovaCotacao = item.CodigoCotacao
                alterado = True
                Exit For
            End If
        Next
        If (alterado) Then
            For Each item As Cotacao In Cotacoes
                [ô]verificando item por item e vendo se algum deles esta com o codigo de cotação diferente do original
                If (item.CodigoCotacao <> item.CodigoCotacaoOriginal) Then
                    [ô]alterando o codigo de cotacao para o novo codigo de cotação para todos os produtos
                    item.CodigoCotacao = NovaCotacao
                    Insert(item)
                    Exit For
                End If
            Next
        End If
        Return alterado
    End Function


    Public Sub Insert(cotacao As Cotacao)
        [ô]implementar o seu command conforme o seu banco de dados, conexao e etc
        Dim command As IDbCommand
        [ô]O adequado é trabalhar com parametros, mas para simplificar, vamos assim mesmo
        command.CommandText = [Ô]insert into tbDetalhesCotacao (codigo_cotacao, codigo_produto, quantidade) values ([Ô] & cotacao.CodigoCotacao & [Ô],[Ô] & cotacao.CodigoProduto & [Ô],[Ô] & cotacao.Quantidade & [Ô])[Ô]
        command.ExecuteNonQuery()
    End Sub


End Class