DATA REPORT EM ORDEM ALFABETICA URGENTE
Eu de novo, ?????
[Amigos estou com seguinte problema]
Ao geral meu relatório de clientes ele não fica por ordem alfabética.
Uso o Access
With PrintRelProdutos
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = RS.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = RS.Fields(i - 1).Name
End If
Next i
End With
.Show 1
End With
[Amigos estou com seguinte problema]
Ao geral meu relatório de clientes ele não fica por ordem alfabética.
Uso o Access
With PrintRelProdutos
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = RS.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = RS.Fields(i - 1).Name
End If
Next i
End With
.Show 1
End With
sql = [Ô]select * from TABELA where CAMPO order by NOME[Ô]
set pes = db.openrecordcount(sql)
set pes = db.openrecordcount(sql)
Como disse o colega acima, carrega o Recordset [Ô]RS[Ô] com os dados ordenados por NOME (... ORDER BY nome).
Só isso!
Só isso!
Valeu pessoal deu certinho
RS.Open [Ô]select * FROM CadProduto where (Descricao like [ô][Ô] & txtProcurar.Text & [Ô]%[ô]) ORDER BY Descricao[Ô], CnSql, adOpenKeyset, adLockReadOnly
RS.Open [Ô]select * FROM CadProduto where (Descricao like [ô][Ô] & txtProcurar.Text & [Ô]%[ô]) ORDER BY Descricao[Ô], CnSql, adOpenKeyset, adLockReadOnly
Tópico encerrado , respostas não são mais permitidas