CADASTRANDO DUAS VEZES

THAINE 23/02/2012 09:28:43
#395343
Por favor alguém me ajuda..
o meu form está cadastrando o mesmo material 2 vezes.
eu cadastro o primeiro, quando vou cadastrar o segundo, o primeiro se repete.
Segue abaixo o comando
Private Sub Salvar()
Dim obj As New clsItem
Dim cod As New clsOrcamento


For i = 0 To dgvMaterial.Rows.Count - 1
obj.CodOrcamento = lblCodOrcamento.Text
obj.CodMaterial = dgvMaterial.Item([Ô]colCodMaterial[Ô], i).Value
obj.Descricao = dgvMaterial.Item([Ô]colDescricao[Ô], i).Value
obj.Qtd = dgvMaterial.Item([Ô]colQtd[Ô], i).Value
obj.PrecoUnitario = dgvMaterial.Item([Ô]colPrecoUnitario[Ô], i).Value
obj.Total = dgvMaterial.Item([Ô]colPrecoTotal[Ô], i).Value

If IsNumeric(lblCodOrcamento.Text) = True Then
obj.CodItem = 0

[ô]Executar o método incluir
obj.Salvar()
End If
Next

[ô]MsgBox([Ô]Orçamento cadastrado com Sucesso![Ô], MsgBoxStyle.OkOnly, [Ô]Atenção[Ô])

End Sub
ALTAIR148 23/02/2012 09:40:32
#395344 Resposta escolhida
Tenta assim:


Private Sub Salvar()
        Dim obj As New clsItem
        Dim cod As New clsOrcamento


        For i = 0 To dgvMaterial.Rows.Count - 1
            obj.CodOrcamento = lblCodOrcamento.Text
            obj.CodMaterial = dgvMaterial.Item([Ô]colCodMaterial[Ô], i).Value
            obj.Descricao = dgvMaterial.Item([Ô]colDescricao[Ô], i).Value
            obj.Qtd = dgvMaterial.Item([Ô]colQtd[Ô], i).Value
            obj.PrecoUnitario = dgvMaterial.Item([Ô]colPrecoUnitario[Ô], i).Value
            obj.Total = dgvMaterial.Item([Ô]colPrecoTotal[Ô], i).Value


        Next

        [ô]MsgBox([Ô]Orçamento cadastrado com Sucesso![Ô], MsgBoxStyle.OkOnly, [Ô]Atenção[Ô])
            If IsNumeric(lblCodOrcamento.Text) = True Then
                obj.CodItem = 0

                [ô]Executar o método incluir
                obj.Salvar()
            End If
    End Sub
THAINE 23/02/2012 09:46:04
#395346
Obrigada pela ajuda
ALTAIR148 23/02/2012 09:46:59
#395347
Deixa ver se eu entendi uma coisa, apos adicionar cada item no datagrid vc roda essa rotina?
THAINE 23/02/2012 10:10:19
#395348
Então, eu esqueci de limpa o datagrid, por isso ele adicionava tudo denovo :S
Foi mal ;d
Tópico encerrado , respostas não são mais permitidas
Voltar