Синхронизация двух списков

tim2
Дата: 06.06.2004 12:40:49
Как сделать чтобы при перемещении по Списку1, в Списке2 фокус тоже перемещался на соответствующие записи(вариант - поместить все в один список не подходит)?
Rivkin Dmitry
Дата: 06.06.2004 12:58:37
List2 = List1
Но при условии, что оба листа абсолютно идентичны, если нет, то нужно организовать поиск что-то типа:

Sub FindValue(Val)
Dim i as Long

for i = 1 To List2.ListCount
if List2.ItemData(i) = Val Then _
List2 = List2.ItemData(i)
exit for
endif
next

end Sub
Shuhard
Дата: 06.06.2004 13:01:30
в AfterUpdate Списку1 ставишь
Список2=Список1.Itemdata
если списки сделаны на одной таблице и присоединено одно поле являющееся ключом