dim db as collection, v1 as variant, v2 as variant, i as long
set db=new collection
db.add array(array(10,20), array(30,40), array(50,60)), "place1" & vbnullchar & "good1"
db.add array(array(100,200), array(300,400), array(500,600)), "place2" & vbnullchar & "good2"
v1=db("place1" & vbnullchar & "good1")
for i=lbound(v1) to ubound(v1)
v2=v1(i)
debug.? "Цена-количество: " & v2(0) & "-" & v2(1)
next
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60