Perdon yo se que esto sera muy tonto para ustedes...pero yo no eh podido resolverlo...
Mi problema es que tengo un reporte que tiene una coneccion ODBC, al conectar la base de datos tengo una vista de SQL para tener la informacion....Bueno hasta qui todo bien...mi reporte tiene un parametro de tipo discreto....y este es el codigo que utiliso desde una forma de VB.NET
Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
Dim DT_Pedidos As DataTable = Pedidos1.Tables("pedido")
Dim RSPedido As DataRow
Dim DatoPedido(1) As Object
Dim Vt_NumIni As Integer
Dim insRptFormatoCanels As New FormaReportePedido()
Do While CInt(TxtFolFin.Text) >= Vt_NumIni
DatoPedido(0) = 23
DatoPedido(1) = CInt(Vt_NumIni)
RSPedido = DT_Pedidos.Rows.Find(DatoPedido)
If Not (RSPedido Is Nothing) Then
If RSPedido(8) = "N" Then
paramField.ParameterFieldName = "folio"
discreteVal.Value = CInt(Vt_NumIni)
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
FormatoCanelsViewer.ParameterFieldInfo = paramFields
FormatoCanelsViewer.ReportSource = insRptFormatoCanels
insRptFormatoCanels.PrintToPrinter(1, False, 0, 0)
RSPedido(8) = "S"
SqlPedidos.Update(DT_Pedidos)
DT_Pedidos.AcceptChanges()
End If
End If
Vt_NumIni += 1
paramField = New ParameterField()
discreteVal = New ParameterDiscreteValue()
paramFields = New ParameterFields()
Loop
Basicamente esto funciona...El asunto es que si pongo un rango de folios del 1 al 3...si me imprime 3 reporte pero todos del folio 1
porfavor ayudenme con esto...tengo 2 dias en ello...
Gracias
