2014-02-04 16:33 UTC
I have the following code;
(if (> LGTH 1)
(progn
(setq cntr 0)
(foreach N L1
(setq gbspn (rtos (car N) 2 0 ))
(setq custpn (cadr N))
(setq path (caddr N))
(dcl_ListView_FillList GBSCC_FormGBSCC_ListView1
(list
(list gbspn cntr custpn cntr path cntr)
)
)
(setq cntr (+ cntr 1))
)
)
)
This works, but, only fills the listview with the last element of the list L1.
It seems as if the listview items are reset on each iteration.
Any suggestions on HOW to make this work?
(if (> LGTH 1)
(progn
(setq cntr 0)
(foreach N L1
(setq gbspn (rtos (car N) 2 0 ))
(setq custpn (cadr N))
(setq path (caddr N))
(dcl_ListView_FillList GBSCC_FormGBSCC_ListView1
(list
(list gbspn cntr custpn cntr path cntr)
)
)
(setq cntr (+ cntr 1))
)
)
)
This works, but, only fills the listview with the last element of the list L1.
It seems as if the listview items are reset on each iteration.
Any suggestions on HOW to make this work?