Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
li_res = tv_1.FindItem(FirstVisibleTreeItem! , 0) Do While li_res>0 li_res = tv_1.FindItem(NextVisibleTreeItem!, li_res) if li_res>0 then tv_1.GetItem(li_res, ltvi_Dept) end if Loop