PureBasic Forums - English

Restored from previous forum. Originally posted by Manolo.

Hi Fred,

Please see the next example:

NbColumns = DatabaseColumns()
Dim NameCol$(NbColumns,1)

For k=0 To NbColumns-1
NameCol$(k,0)=DatabaseColumnName(k)
NameCol$(k,1)=DatabaseColumnLen(k)
Next
----- other code.....

PanelGadget(1, 20, Top, #WindowWidth-50, 360)


AddGadgetItem(1, 0, "Clients")
ListIconGadget(2, 20, 20, 575, 245, NameCol$(0,0), val(NameCol$(0,1))+2)
For k=1 To NbColumns-1
AddGadgetColumn(2, k, NombreCol$(k,0), val(NameCol$(0,1))+2)
Next

-------more code....

Thanks,

Manolo
[url]mailto:vpardo@infonegocio.com[/url]