SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: rodolforpv en Viernes 4 de Febrero de 2005, 20:38

Título: Datareport
Publicado por: rodolforpv en Viernes 4 de Febrero de 2005, 20:38

Hola que tal miren tengo solamente un problema y solamente uno no puedo hacer que el datreport se actualize porfavor chequen mi codigo y veran que no hay ningun problema de hecho lo voy corriendo poco a poco y si me trae los datos el datanevironment pero el data report solo me pone el dato anterior que haya mandado a imprimir, diganme si es mas facil a si o me recomiendan CRYSTAL REPORTS de ser asi porfavor diganme como. Este es el codigo a modificar porfavor ayudenme es mega urgente.

DataEnvironment1.Commands(1).CommandText = "select * from Participantes where Titulo='" & Text1.Text & "'and Nombre='" & Text2.Text & "'and Apellidop='" & Text3.Text & "'and Apellidom='" & Text4.Text & "'"
DataEnvironment1.Commands(1).Execute
Set obj = New PrinterControl
obj.ChngOrientationLandscape
DataReport1.Show
DataReport1.Refresh
'DataReport1.PrintReport False, rptRangeFromTo, 1, 1
obj.ReSetOrientation

PORFAVOR AYUDENME.

Título: Re: Datareport
Publicado por: desarrollo en Sábado 5 de Febrero de 2005, 01:22

hola  a ver fijate bien en tu select quizas ahi este el problema tambien fijate en el tamaño de ti detalle kizas este pasando a otra hoja bueno t mando un ejemplito a mi tambien me complico un poco la vida el data report

yo hago lo siguiente pongo toda mi tabla en el command ( o instruccion sql  y recien a la hora de ejecutar le pido k me muestro lo k kiero utiliza el filter

DataEnvironment1.rsguia_cab.Filter = "num_guia_dep = '" & Text1.Text & "'"
' en la linea anterior ahi tendrias k poner todos los criterios

If MsgBox("Desea Imprimir Guia de Remision ...", 36, "Imprimir") <> 7 Then
DataReport2.PrintReport , rptRangeFromTo, 1, 1
End If

Ojala t ayude  :P