List1:
Column=2

List2:
Column=2

Как добавить из List1 в List2 сразу обе колонки в один пункт?
thisform.List2.AddItem(.List1.List(.List1.ListIndex,1),.List1.List(.List1.ListIndex,2))
?
Не получается

Вот так работает

.List2.AddItem(.List1.List(.List1.ListIndex,1),LCount,1)
.List2.List(lCount,2)=.List1.List(.List1.ListIndex,2)

А так еще лучше для двумерного массива

if .List2.ListCount=0
lcount=1
else
lcount=(.List2.ListCount)+1
endif
.List2.AddItem(.List1.List(.List1.ListIndex,1),lcount,1)
.List2.List(lCount,2)=.List1.List(.List1.ListIndex,2)
mas1(.List1.ListIndex,1)='\'+mas1(.List1.ListIndex,1)
.List1.requery