PREENCHER COMBO

EVERSON.PASETTO 11/12/2011 08:44:27
#391068
Tenho esse codigo que preenche minha combo

Private Sub Form_Load()
Dim rstconsulta As New ADODB.Recordset [ô]Declara a variavel que vai receber os dados da tabela de cupoms
Dim rstconsultaNumero As New ADODB.Recordset [ô]Declara a variavel que vai receber os dados da tabela do fixador
Dim NumAuxiliar As String

[ô]Inicio da rotina que carrega a combo cbocupom
rstconsulta.Open [Ô]Entregas[Ô], cnnBanco

Do While Not rstconsulta.EOF [ô]Percorre a tabela de cupoms
cboCupom.AddItem rstconsulta.Fields([Ô]cx_NroCupomFiscal[Ô]) [ô]Insert a sigla de cupom na combo
rstconsulta.MoveNext [ô]Passa para o proximo registro
Loop
rstconsulta.Close [ô]Fecha tabela
Set rstconsulta = Nothing [ô]Limpa da memoria
[ô]Fim da rotina que carrega a combo cbocupom
End Sub

Mas não quero preencher com todos os dados da lista..

Como faço para filtrar a lista.. e deixar apenas as mercadorias não entregues?
Ou seja onde cx_entregue = 0 [ô]Não entregue
Se for = 1 foi entregue..
CHARLESTON10 11/12/2011 13:11:09
#391080 Resposta escolhida
Cria um IF para verificar isso

Dentro do While você verifica se o registro esta entregue ou não e adiciona com qual criterio;

 
[ô]Vai adicionar se não estiver entregue

Do While Not rstconsulta.EOF [ô]Percorre a tabela de cupoms
        if rstconsulta!cx_entregue = 0 then
                 cboCupom.AddItem rstconsulta.Fields([Ô]cx_NroCupomFiscal[Ô]) [ô]Insert a sigla de cupom na combo
        end if
        rstconsulta.MoveNext
Loop
TECLA 11/12/2011 14:25:00
#391083
Altere a linha...
 rstconsulta.Open [Ô]Entregas[Ô], cnnBanco


...para algo parecido com isso (ou seja, utilize uma EXPRESSÃO SQL (SELECT) ao invés do NOME DA TABELA)
 rstconsulta.Open [Ô]SELECT cx_NroCupomFiscal FROM Entregas WHERE cx_entregue=0[Ô], cnnBanco
Tópico encerrado , respostas não são mais permitidas
Voltar