Amigos, tenho o codigo abaixo:

Private Sub MontaOs()
Dim BdBaixas As DAO.Database
Dim TbOs As DAO.Recordset
Dim Ln5
Dim Cod As String
Cod = 1
Ln5 = 6
Set BdBaixas = OpenDatabase("C:EstoqueMateriais.mdb")
Set TbOs = BdBaixas.OpenRecordset("SELECT OS FROM Dados WHERE Status = 'S'", dbOpenSnapshot)
If Not TbOs.EOF Then
TbOs.MoveMin
Do While Not TbOs.EOF
Ln5 = Ln5 + 1
Plan421.Range("C" & Ln5 + 1) = "CONTRATO / C.CUSTO"
Plan421.Range("E" & Ln5 + 1) = TbOs("OS")
Ln5 = Ln5 + 1
TbOs.MoveNext
Loop
End If
End Sub

No meu banco tenho os campos [b]OS [/b]e [b]Codigo[/b]. A minha duvida é o seguinte: para um determinado codigo baixei 10 pc, sendo 03 e 02 para OS 1001 e 05 para OS 1002. Quando gero o relatorio atraves do código descrito gostaria que o mesmo carregue conforme abaixo:
1001 03 pc
         02 pc
total  05 pc

1002 05 pc

É possível?

Fico agradecido antecipadamente.

usando o crystal reports ...

 

a base de dados do relatório deve retornar sem grupo

exemplo:

produto os     quantidade

x          1001  2

Pelo o que eu entendi, tu queres agrupar por OS, correto?

Cria um agrupamento para o campo Banco.OS e depois entra nas propriedades do objeto (objeto Banco.OS do relatório) e marca a opção "Suprimir se for duplicado".

 

Espero ter ajudado