Crystal Report - SelectionFormula con valores de Listbox

   
Vista:

SelectionFormula con valores de Listbox

Publicado por Dario Ramallo. (3 intervenciones) el 13/01/2009 02:49:31
Hola a todos,
Estoy necesitando que me ayuden, estoy realizando una aplicacion con vb 6 y crystal report 8, lo que necesito hacer es lo siguiente, pasarle a un selectionformula los datos seleccionados de un listbox con checked, este es el codigo que estoy implementando, pero me da un error.

Private Sub Controles()
Dim i As Integer
Dim SelectItems As String
With CRNivel
.ReportFileName = App.Path & "ReportesNivelEducativo.rpt"

For i = 0 To lstNivel.ListCount - 1
If lstNivel.Selected(i) = True Then
SelectItems = SelectItems & "'" & Trim(lstNivel.ItemData(i)) & "',"
End If
Next i
If Len(SelectItems) > 0 Then
SelectItems = Left(SelectItems, Len(SelectItems) - 1)
End If
.SelectionFormula = "{EstudioCursado.CodEstudioCursado} IN [" & SelectItems & "]"

If Control = True Then
.Destination = crptToWindow
Else
.Destination = crptToPrinter
End If
.WindowState = crptMaximized
.WindowShowZoomCtl = True
.Action = 1
End With
End Sub

Espero que me comprendan y desde ya MUCHAS GRACIAS...

Dario Ramallo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SelectionFormula con valores de Listbox

Publicado por apacheco@ati.es (92 intervenciones) el 14/01/2009 19:47:58
¿Que tipo de error te da? Seria bueno saberlo para centrarnos mas.

Asegurate de app.path acaba con ; de no hacerlo no localizaria el listado.

Yo trabajo con Crystal 6 y los campos numericos no deben ir entre comillas, por lo tanto lo que haces es
SelectItems ='2', '4', .....'9' Esto entre parentesis dobles al crear el campo

y debe ser
SelectItems =2, 4, .....9 Esto entre parentesis dobles al crear el campo

Es otro error seguro ya que los valores del itemData son numericos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SelectionFormula con valores de Listbox

Publicado por Dario Ramallo. (3 intervenciones) el 20/01/2009 02:44:06
Muchas gracias "apacheco" , el problema que tenia era ese el de las variables tipo string y las integer que me tomaba el itemdata, logre solucionarlo con este codigo.

For i = 0 To lstNivel.ListCount - 1
If lstNivel.Selected(i) = True Then
SelectItems = SelectItems & "{EstudioCursado.CodEstudioCursado}" & "=" & Trim(CInt(lstNivel.ItemData(i))) & " OR "
End If
Next i

Muy aradecido por responderme.

Saludos Dario Ramallo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar