List não atualiza


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: List não atualiza

ADRIANO2605

CAMPO GRANDE
MS - BRASIL

ENUNCIADA !

Postada em 03/02/2009 13:55 hs

E ai pessoal, seguinte na verdade ele funciona!
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 padrao, 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! Alguem tem ideia do q pode ser?

Valeu!

Treze
não registrado

Postada em 03/02/2009 14:09 hs

não tenho certeza mas percebi que você porssui um order by na SQL, então quando você chamar esta sub do listview será ordenado, misturando o ultimo registro ou colocando na ordem dele, tente o seguinte tire o order by e veja o resultado.

Treze

SÃO VICENTE
SP - BRASIL

Postada em 03/02/2009 14:16 hs

Mais uma coisa eu custumo fazer assim não utilizo o order by na select mas uso esta função para ordernar conforme clica na coluna

Private Sub LstPedido_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
' Este código ordena a lista por qualquer coluna.

' Se a lista já estiver ordenada por esta coluna, a ordem será invertida.
With LstPedido
    If (ColumnHeader.Index - 1) = .SortKey Then
      .SortOrder = (.SortOrder + 1) Mod 2
    Else
      .Sorted = False
      .SortOrder = 0
      .SortKey = (ColumnHeader.Index - 1)
      .Sorted = True
    End If
End With
End Sub

ADRIANO2605
não registrado

ENUNCIADA !

Postada em 04/02/2009 14:35 hs

Treze valeu pela dica!
Sabe o q era!
Eu tenho a mania de trabalha com as duas conexões Ado e Dao, então o salvaprodutos q chamava o list, era em uma conexão e o list estava com outra, ai as vezes ele não atualizava na mesma velocidade!
Resumindo troquei o preenche list para a mesma conexão do salvaprodutos, e ta perfeito!
De klker forma muito obrigado! pela força!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR