Só q em um certo momento ela não faz o preenche_lista
O codigo é este.
Public Sub preenche_lista()
verifica_rs
sql = "select * from detalhepedido where pedido like '" & Ctxt(1).Text & "' order by codigodetalhe"
Rds.Open sql, cnn
Lblitens(3).Caption = "0,00"
LstPedido.ListItems.Clear
If Rds.RecordCount = 0 Then Exit Sub
While Not Rds.EOF
Set lst = LstPedido.ListItems.Add(, , Rds(3))
lst.SubItems(1) = Rds![qtde]
lst.SubItems(2) = Format(Rds![vlrunitario], "#,##0.00;(#,##0.00)")
lst.SubItems(3) = Format(Rds![vlrtotal], "#,##0.00;(#,##0.00)")
Lblitens(3).Caption = Format(CCur(Lblitens(3).Caption) + Rds![vlrtotal], "#,##0.00;(#,##0.00)")
Rds.MoveNext
Wend
Ctxt(0).Enabled = True
Ctxt(0).Text = Empty
Ctxt(0).SetFocus
End Sub
Ela é chamada na hora q eu salvo o produto!
Ele salva o produto perfeitamente porem não coloca no list
e não tem um padrão, tipo pra eu conseguir identificar o q ocorre antes dele não preencher!
Eu vi q o q acontece é q o ultimo registro não entra no select!
mas no proximo q eu lançar ele aparece certo! alguém tem ideia do q pode ser?
Pergunta
ToPronto N'Area
E ai pessoal, seguinte na verdade ele funciona!
Só q em um certo momento ela não faz o preenche_lista
O codigo é este.
Ela é chamada na hora q eu salvo o produto!
Ele salva o produto perfeitamente porem não coloca no list
e não tem um padrão, tipo pra eu conseguir identificar o q ocorre antes dele não preencher!
Eu vi q o q acontece é q o ultimo registro não entra no select!
mas no proximo q eu lançar ele aparece certo! alguém tem ideia do q pode ser?
Valeu!
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.