hola amigos!
tengo el siguiente codigo que me permite separar itemes contenidos en una tabla que estan unidos con un -
yo quiero que en un listview me muestre el primer digito de cada uno de los arrays que hace sep(que es el split). aqui el codigo:
Do While Not (tabla.EOF)
Set tabla1 = base.OpenRecordset("SELECT * FROM estructura WHERE cod='" & msg & "'")
sep = Split(tabla1.Fields("respuestas_correctas"), "-")
For i = 1 To tabla.Fields("preguntas")
l.AddItem i
Set list2 = listaA.ListItems.Add(, , i & "")
If l.ItemData(i - 1) = Right(sep(i), 1) Or l.Text = Right(sep(i), 2) Then
list2.SubItems(1) = Left(sep(i), 1) & ""
End If
Next i
tabla1.Close
tabla.MoveNext
Loop
el me devuelve solo en el decimo item el primer digito que le pertenece a este.
graficamente:
este es el listview
Pregunta / Alternativa Correcta
1 'aqui deberia aparecerme el digito que le corresponde al numero de
2 'la pregunta
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
los datos del campo respuestas correctas de la tabla estructura son( de la misma manera como se muestran a continuacion):
A1-A9-A14-A20-B2-B5-B8-B19-C3-C7-C10-C13-C15-C18-D4-D6-D11-D12-D16-D17-
