Pasar de información de un listbox a un report

Hola, Y gracias por tu tiempo
Tengo un formulario que es una factura, cambié un cuadro de texto a cuadro de lista, para organizar mejor la información de lo que es el concepto de la factura.
El caso es que la factura se imprime bien con los datos correspondientes, pero no se imprime el concepto que se queda guardado en la BD.
¿Cómo puedo hacerlo?
1

1 respuesta

1
Respuesta de
Hola
Recorre la colección de Items del Listbox y los imprimes
Saludos,
¿Cómo?
Te dejo el código para que le eches un vistazo, y veas que tal va, porque me da error cuando pongo la opción Me. Concepto.ItemsSelected
Private Sub Concepto_GotFocus()
Dim cadena, cadena2, cadena3, Concepto As String
Dim mnsj, titulo As String
Dim estilo As VbMsgBoxStyle
Dim respuesta As VbMsgBoxResult
mnsj = "¿Deseas introducir conceptos"
estilo = vbOKCancel
titulo = "Confirmación"
respuesta = MsgBox(mnsj, estilo, titulo)
If respuesta = vbOK Then
cadena = InputBox("Introduce el concepto de la primera BaseImponible", "Conceptos Gastos")
cadena2 = InputBox("Introduce el concepto de la segunda BaseImponible", "Conceptos Gastos")
cadena3 = InputBox("Introduce el concepto de la tercera BaseImponible", "Conceptos Gastos")
' If Not IsNull(cadena) And Not IsNull(cadena2) And Not IsNull(cadena3) Then
Me.Concepto.AddItem ("B.I_1: " & cadena & ", " & "B.I_2: " & cadena2 & ", " & "B.I_3: " & cadena3 & ";" & vbCrLf)
Concepto = InputBox("Otros conceptos", "Conceptos Gastos")
Me.Concepto.AddItem (Concepto)
Me.Concepto.ItemsSelected

Else
    MsgBox "Has elegido no insertar conceptos", vbOKOnly, "NCA Gestion Integral"
End If
End Sub

Me salta el depurador y me dice que el uso de la propiedad no es válido.
Para recorrer la lista de items del listbox:
Dim i as integer
For i = 0 to Concepto.Items.count -1
print concepto.Items(i).text
next i
Saludos,
La opción que me has dado no me ha válido.
Primero porque print no lo puedo utilizar( trabajo con vb y access) y creo que esta opción no esta presente, y segundo, que que tras poner Me. Concepto no me da la opción 'Items', sino que me ofrece 'ItemData' o 'ItemSelected'.
Estoy desesperada ya...
Gracias por molestarte tanto!
Hola
Lo que coloco son ejemplos, porque no tengo idea de que estas haciendo, debes tratar de cambiar las cosas por las que tu utilizas, si no me dices que concepto tiene itemdata no me doy cuenta que es un datacombo ... entonces utiliza itemdata y no utilices print sino la instrucción que estas usando para la impresión.
Saludos,
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje
¿No es la respuesta que estabas buscando? Puedes explorar otras preguntas del tema Visual Basic o hacer tu propia pregunta: