if m.isCon1 isCon1=.f. local i, cc select CName, Connum, CPrimary ; from cons ; where CCust = Names.cust ; and ! Inactive ; order by 1 ; into array a_cons cc= _tally with this .clear for i = 1 to m.cc .addlistitem(a_cons[m.i,1]) endfor * select current contact .value= max(ALOOK(@a_cons, cons.Connum, 2),1) .displaycount=min(10,.listcount) endwith endif