PROBLEMAS CON DATAREPORT

xabier021
24 de Enero del 2008
Buenas compañeros, tengo un problema con el control datareport.Los datos q van a visualizarse en el datareport las consigo de una tabla,hasta aqui bien.La tabla trata sobre una oferat de mi empresa. Mediante un filtro q le pongo en le numero pedido,hago q solo visualize las ofertas q tengan ese numero pedido. El problema viene cuando hay dos o mas ofertas con el mismo numero de pedido y me visualiza solo una. Como hago q visualize las otras lineas? muchas gracias de antemano.

joemori
24 de Enero del 2008
Para hacer lo que necesitas utiliza esto:

Private Sub CmdReporte_Click()
Dim iRecord As Integer
Dim SqlQue As String, SqlDonde As String, SqlString As String
SqlQue = "SHAPE {SELECT * FROM `Turno` Where NroReg = " & Val(TxtNroReg) & "} AS ResuNove APPEND ({SELECT * FROM `Novedades` Where NroReg = " & Val(TxtNroReg) & "} AS DetalleNove RELATE 'NroReg' TO 'NroReg') AS DetalleNove"
'SqlQue = "Select * From Turno "
'SqlDonde = "Where NroReg = " & Val(TxtNroReg)
'SqlString = SqlQue & SqlDonde
Novedades.ResuNove
If Novedades.rsResuNove.State = 1 Then
Novedades.rsResuNove.Close
Novedades.rsResuNove.Source = SqlQue
Novedades.rsResuNove.Open
Else
Novedades.rsResuNove.Source = SqlQue
Novedades.rsResuNove.Open
End If
Novedades.rsResuNove.Requery
Sicnr001.Refresh
If Novedades.rsResuNove.RecordCount > 0 Then
Sicnr001.Show
Else
MsgBox "..No existen Novedades Para el grupo : " & Trim(TxtNroReg)
End If
Novedades.rsResuNove.Close
'CmdSalir = True
End Sub

Para realizar esto debes de tener una coneccion odbc
si no entiendes enviame un correo y te explico mejor

Saludos, Jose desde Venezuela, de donde eres tu

luis carlos
24 de Enero del 2008
bien ahi con ese codigo la hizo no como los otros. gracias