Problemas con RecordSelectionFormula
Publicado por David (116 intervenciones) el 29/06/2004 19:13:17
Hola. Tengo un archivo rpt donde introduzco los campos que quiero q salgan y luego tengo un form con un viewer. En el load de esa form pongo:
Dim informe As ReportDocument = New ReportDocument
Dim CadenaConexion As String = "Server=DAVID; UID=David; pwd=Luxardo; database=Luxardo"
Dim conn As New SqlConnection(CadenaConexion)
conn.Open()
Dim consulta As String = "SELECT NumeroCliente, IdComercial, NombreFiscal, Razon, Calle, Telefono1, NIF, Familia, Numero, CP FROM dbo.Clientes WHERE IdComercial = '" & TIdCom.Text & "'"
Dim comandos As SqlCommand
Dim DR As SqlDataReader
Dim CB As SqlCommandBuilder
comandos = New SqlCommand(consulta, conn)
DR = comandos.ExecuteReader
'Cargar la definicion del informe
informe.Load("ListadoClientes.rpt")
'Cargar fuente de datos en el informe
informe.SetDataSource(DR)
informe.RecordSelectionFormula = "{Clientes.IdComercial} = '" & TIdCom.Text & "'"
Me.CRListadoCliCom.ReportSource = "ListadoClientes.rpt"
Y la condicion que pongo en el RecordSelectionFormula no se cumple, se la salta. Q estoy haciendo mal?
Gracias y saludos
Dim informe As ReportDocument = New ReportDocument
Dim CadenaConexion As String = "Server=DAVID; UID=David; pwd=Luxardo; database=Luxardo"
Dim conn As New SqlConnection(CadenaConexion)
conn.Open()
Dim consulta As String = "SELECT NumeroCliente, IdComercial, NombreFiscal, Razon, Calle, Telefono1, NIF, Familia, Numero, CP FROM dbo.Clientes WHERE IdComercial = '" & TIdCom.Text & "'"
Dim comandos As SqlCommand
Dim DR As SqlDataReader
Dim CB As SqlCommandBuilder
comandos = New SqlCommand(consulta, conn)
DR = comandos.ExecuteReader
'Cargar la definicion del informe
informe.Load("ListadoClientes.rpt")
'Cargar fuente de datos en el informe
informe.SetDataSource(DR)
informe.RecordSelectionFormula = "{Clientes.IdComercial} = '" & TIdCom.Text & "'"
Me.CRListadoCliCom.ReportSource = "ListadoClientes.rpt"
Y la condicion que pongo en el RecordSelectionFormula no se cumple, se la salta. Q estoy haciendo mal?
Gracias y saludos
Valora esta pregunta


0