Programación General > Visual Basic 6.0 e inferiores

 Re: DataReport

<< < (2/3) > >>

ManDraK3:
Tengo una duda:

en mi base de datos (sql) tengo unos campos bit (true/false)
lo que quiero es que al cargarlos en el datareport no me aparezca el true/false de cada campo sino reemplazarlos por alguna
imagen como las de los chekbox....

ManDraK3:
Hola...lo anterior ya lo resolvi jeje
ahora tengo otro pegonsito....toy usando el datareport sin dataenviroments...lo cargo con un recordset

Set dtrGrupo.DataSource = RSSs (este es mi recorset con ke cargo un msflexgid)

en un reporte normal no me da problemas, me presenta los datos correctamente
pero toy tratando de hacer un reporte agrupado y me sale el siguiente error:
"Las secciones de informes no coinciden con origen de datos"

alguien me puede decir que estoy haciendo mal? :s

[Zerox]:
mmmm bueno Mandrak3, cuando usas un rs, solo haces referencia a una sola tabla, asi es que si deseas usar 2 tablas no te queda de otra que crear un dataenvironment donde crees la agrupacion por ejemplo, si fuera Boletas y DetalleBoletas
Creas un comando para Boletas y un comando secundario para DetalleBoletas y en el comando DetalleBoletas creas la relacion...

Pero seguramente tu haces filtros o busquedas en tu rs, y deseas que eso se muestre en el Datareport, lo unico que tienes que hacer, y a mi me funciona es cambiarle el SHAPE por tu propia consulta (rsBoleta.source) al Comando Primario del DataEnvironment... Ejemplo:

Si seguimos con el Ejemplo de la Boleta y DetalleBoleta

' *********************************************************************************************
Dim SQLDetalleBoleta as string, SQLBoleta as string 'Almaceno las consultas del rsBoleta
Dim SQLCons as string 'Nuevo Consulta SHAPE para el comando primario
Dim IDs as string 'Almaceno los IDs de Boletas que filtras

'Saco todos los Ids de Boletas filtrados en el RsBoleta, para mostrar el detalle solo de ellos
rsBoleta.MoveFirst
  Do While Not rsBoleta.EOF
    IDs = IDs & rsBoleta!IDBoleta & ","
    rsBoleta.MoveNext
Loop
  IDs = Mid(IDs, 1, (Len(IDs) - 1))
  rsBoleta.MoveFirst

SQLBoleta = RsBoleta.Source
SQLDetalleBoleta = "Select * from DetalleBoleta where IDBoleta in(" & IDs & ") order by IDBoleta"
 
SqlCons = " SHAPE {" & SQLBoleta & "}  AS Boletas APPEND ({" & SQLDetalleBoleta & "}  AS DetalleBoletas RELATE 'IDBoleta' TO 'IDBoleta') AS DetalleBoletas"

DeConsultas.rsBoletas.Close
DeConsultas.rsBoletas.Source = SqlCons
DeConsultas.rsBoletas.Open

DrContratos.Show

' *********************************************************************************************
" SHAPE {" & SQLBoleta & "}  AS Boletas APPEND ({" & SQLDetalleBoleta & "}  AS DetalleBoletas RELATE 'IDBoleta' TO 'IDBoleta') AS DetalleBoletas"

Esta cadena que le paso a mi variable SQLCons, si mas no recuerdo es el source del DEConsultas.rsBoletas.source, a esta yo la reemplazo...
Claro que antes tienes que haber diseñado tu reporte tal como si lo fueras a usar con un datareport bindeado por un dataenvironment.

Bueno espero me hayas entendido algo, a y lo de la extracción de las IDs, se puede mejorar, solo fue un ejemplo, espero haBerte ayudado en algo... Suerte

ManDraK3:
ummmmm ...lo cargue con un dtenv con una varias tablas y al ejecutar en el boton "buscar" le cambio el source y no me da
si no estoy mal io siempre he usado los rs con mas de 1 tabla y me ha funcionado bien
pero bueno hare un ejemplo asi como dices....

ManDraK3:
nada....me da el mismo error :s

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior