Ola galera estou com um problema, que desconheço, se puder preciso de uma luz, então
eu tenho um programa em vb6, um cliente pediu uma ordem de serviço até ai beleza, montei a ordem
mas na hora de imprimir ela esta duplicando apenas umas linha do banco,tipo no banco a tres registros
mas no relatorio so aparece um e repetindo tres vezes,
alguém sabe como faço isso ou corrijo esse erro
vou posta o codigo ai.......
Private Sub cmdImprimir1_Click()
Dim taborcamentos As Recordset
Set taborcamentos = BANCO.OpenRecordset("SELECT * FROM Ordem WHERE codigo='" & dbCodigo.Text & "' ")
If taborcamentos!Codigo >= dbCodigo.Text & "" Then
'IMPRIMIR NA IMPRESSORA A4
If taborcamentos.RecordCount > 0 Then taborcamentos.MoveFirst 'necessário
Do Until taborcamentos.EOF
With rptOrdem.Sections("Section1")
.Controls("lblDatas").Caption = taborcamentos!datas
.Controls("lblCodMerc").Caption = taborcamentos!codmerc
.Controls("lblMercadoria").Caption = taborcamentos!descricao
.Controls("lblQunt").Caption = taborcamentos!qtd
.Controls("lblUnit").Caption = Format(taborcamentos!vlrunitario, "#,##0.00#")
.Controls("lblCliente").Caption = taborcamentos!Cliente
.Controls("lblCodigo1").Caption = taborcamentos!Codigo
.Controls("lblTotal1").Caption = Format(taborcamentos!Total, "#,##0.00#")
End With
taborcamentos.MoveNext
Loop
Unload rptOrdem.DataSource
rptOrdem.Show 1
End If
End Sub
lembrando que já fiz isso com DataEnvironment1 mas o relatorio mostra tudo que esta na tabela, e quero que mostre
apenas o que esta na DBGrid aguardo por uma luz ai Obrigado.....
