Organizar

[jntk]

:huh:

Pessoal, mais uma dúvida.

Quando eu trago os dados de minha tabela utilizando o seguinte código:

'declarando as variáveis'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset
sql = "select * from produtos order by codigo"
Set dyn = db.CreateDynaset(sql)

'carregar códigos
Do While Not dyn.EOF
    cbo_lcod.AddItem Format(dyn.Fields("codigo"), "0000")
    dyn.MoveNext
Loop

Ele traz para mim ordenado pelo código, mas se eu quisesse ordenar pela descrição (tem um campo na tabela descricao) não consigo. Quando subtituo para:

sql = "select * from produtos order by descricao"

Acusa um erro: "Can't sort on memo or OLE object (descicao)" Pelo que entendi ele não vai deixar eu fazer isso, porque o campo é um memorando. Então, como faço para carregar em um combo a descrição em ordem alfabética?

'carregar descrições
Do While Not dyn.EOF
    cbo_ldesc.AddItem dyn.Fields("descricao")
    dyn.MoveNext
Loop

O que adicionar ao código acima?

(Espero ter conseguido explicar minha dúvida)

Valeu!!!

[Graymalkin]

A própria combo tem uma propriedade chamada Sorted (Ordenada). Experimente definí-la como True.

Abraços,

Graymalkin