Propiedad listindex

Como debo de hacer para igualar los indices de 2 listas combinadas
----------------------
Dim Coma_click
dim A as integer
a=lista1.listindex
lista2.listindex=a
End sub
---------------------
Me da error uso indebido propiedad listindex

1 Respuesta

Respuesta
1
Disculpa pero el access no tiene nada que ver con la lista.
Este es para recorrer una lista
For b = 0 To lstlegajos.ListCount - 1
legid = lstlegajos.List(b)
Que b lo uso como indice como ves el indice puede ser cualquier cosa inclusive otro index de otra lista.
Boundcolumn me parece que estamos hablando de dos componentes diferentes.
El componente listbox no tiene boundcolumn
varotralista = list2.list(list1.listindex)
¿Intento hacerlo con esta instrucción pero no me funciona en ACCESS 2000 ME DICE NO SE ENCONTRÓ EL MÉTODO
como puedo hacer?
¿Hay alguna forma de hacerlo con la propiedad boundcolumn?
Gracias
¿Lo qué quieres hacer es que las dos listas tengan igual cantidad de indice?
¿Las listas tienen datos?
Las listas tienen datos y lo que intento es que al seleccionar de la lista1 un dato, coger de la lista2 el valor del mismo listindex
---------
lista1
1 pepe
2 luis
3 juan
lista2
1 pepe
2 luis
3 juan
-------
Cuando selecciono en lista1 (2) quiero llevar a 2 variables (2 y luis)
Deber´´ia también poder hacerlo con la propiedad BOUNDCOLUMN pero no se como
Para tomar eso es así
El valor lo tomas así
varvalor = list1.list(list1.listindex)
para el valor index seria asi
varindex = list1.listindex
ahora para tomar el valor de la otra lista cuando seleccionas la otra es asi
varotralista = list2.list(list1.listindex)
Pruébalo haber como anda
No te enntiendo bien yo he hecho lo siguiente
Private Sub Lista48_CLICK()
Dim AA As Long: Dim N As Integer: Dim X As String
Lista48.BoundColumn = 1: AA = Lista48.Value
For N = 0 To Lista48.ListIndex
X = lotes.Value
Next
End Sub
-----------------------
pero la lista lotes siempre esta con el valor inicial, como puedo hacer a que cada paso del contador me lea el siguinete valor de la lista, ya que esta funcion no me funciona en access
legid = lstlegajos.List(b)
¿Dónde estas programando?
x = lotes.list(lista48.listindex) o
x = lotes.list(n)
Estas dos formas en visual basic andan perfectos.
Desde access nunca programe.
¿Programas visual basic dentro de access? ¿Cómo haces?
Si programas visual basic dentro de access se tiene que poder hacer, por ahí falta agregarle alguna otra opción especial de programacacion en access.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas