ayuda datareport
Publicado por hector (4 intervenciones) el 10/02/2007 15:55:52
hola saben que tengo unos listados hechos en data report y me funcoinaban ala perfeccion yo elegia el registro que queria imprimir y me lo imprimia pero aora me dijeron que tengo que usar dos bases de datos que ocupen el mismo listado y el data report source y member osea la bse y la tabla las tengo que hacer asi :
Set rptfactor.DataSource = DataEnvironment1
rptfactor.DataMember = "factores"
para que hacer dos dataenvironment, cada uno con una base y al momento de imprimir agrego ese codigo porque antes las tenia en las propiedades del listado nada mas, y resulta que ahora no me imprimie el que elijo y es el mismo codigo, el siguiente :
If imprimir = "factores" Then
If tbusca.Text = "" Then
MsgBox ("No hay ninguna Factura seleccionada, primero seleccione una y luego Imprima")
Else
Entorno.remuneracion.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=remuneracion"
Set listado = Entorno.Commands("factores_grouping")
listado.CommandType = adCmdText
listado.CommandText = "SHAPE {select * from mfactor where año=" & tbusca.Text & " order by año} AS factores COMPUTE factores BY 'año'"
rptfactor.Show 1
End If
tbusca.Text = ""
pero me muestra el primer registro nada mas, ojala me entiendan lo que quiero hacer es que me imprima el registro que yo elija pero llenando el datareport con codigo no en las propiedades
ayuda porfa
gracias
Set rptfactor.DataSource = DataEnvironment1
rptfactor.DataMember = "factores"
para que hacer dos dataenvironment, cada uno con una base y al momento de imprimir agrego ese codigo porque antes las tenia en las propiedades del listado nada mas, y resulta que ahora no me imprimie el que elijo y es el mismo codigo, el siguiente :
If imprimir = "factores" Then
If tbusca.Text = "" Then
MsgBox ("No hay ninguna Factura seleccionada, primero seleccione una y luego Imprima")
Else
Entorno.remuneracion.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=remuneracion"
Set listado = Entorno.Commands("factores_grouping")
listado.CommandType = adCmdText
listado.CommandText = "SHAPE {select * from mfactor where año=" & tbusca.Text & " order by año} AS factores COMPUTE factores BY 'año'"
rptfactor.Show 1
End If
tbusca.Text = ""
pero me muestra el primer registro nada mas, ojala me entiendan lo que quiero hacer es que me imprima el registro que yo elija pero llenando el datareport con codigo no en las propiedades
ayuda porfa
gracias
Valora esta pregunta


0