>I am using the following code to add itens to one listbox with 3 columns
>SELECT despesa
>GO TOP
>i=0
>SCAN WHILE !EOF('despesa')
> i=i+1
> Thisform.moverlists.lstsource.additem(despesa.ds_despesa,i,1)
> Thisform.moverlists.lstsource.additem(STR(despesa.vl_despesa,8,2),i,2)
> Thisform.moverlists.lstsource.additem(despesa.nr_despesa,i,3)
>ENDSCAN
>
>It is happen that the itens appear one line for each field of table 'despesa' instead one line with 3 columns.
>
>For example if the file 'despesa' contains 10 records
>I will have one list box with 30 lines.
>
>The ColumnCount property is 3 and the ColumnWidths is defined.
You should use AddListItem() for multi-column adding. Also, you could consider to collect records to 3-field cursor and use it as Rowsource: it would be faster and less coding.
Edward Pikman
Independent Consultant