WklColumns

Dim myWklColumns As WklColumns

The columns of a tree list.

None

Returned by WklTreeList.Columns. Supports For Each. The order of the collection is the order of creation; the display order is WklColumn.VisibleIndex within each band.

Not created directly; returned by other members of the library.

Dim c As WklColumn
For Each c In Me!List1.Object.Columns
    Debug.Print c.Name, c.Caption, c.Width
Next

None

Property Get Item(ByVal Index As Variant) As WklColumn

Returns a column by position or name.

Property value: `WklColumn` – The column.

Default member: it can be left out, as in myWklColumns(...) for myWklColumns.Item(...). Read-only.

None

Declared by WklColumns.

Property Get Count() As Long

Returns the number of columns.

None

Property value: Long – The number of columns.

Read-only.

None

Declared by WklColumns.

Function Add(ByVal FieldName As String, Optional ByVal Caption As String = "", Optional ByVal Band As String = "") As WklColumn

Adds a column for a field.

Return value: `WklColumn` – The new column.

The column's name is the field name. The first visible column holds the tree unless WklTreeList.TreeColumn names another one.

There is no method that adds a column for every field of the record source (the designer's “Spalten aus Feldern anlegen”). In VBA, add the columns from the fields of a recordset, as the example shows; the designer does the same and skips fields that already have a column.

Dim rs As DAO.Recordset, fld As DAO.Field
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblCustomers WHERE False")
With Me.Grid1.Object.Columns
    .Clear
    For Each fld In rs.Fields
        .Add fld.Name, ""
    Next
End With
rs.Close

Declared by WklColumns.

Sub Remove(ByVal Index As Variant)

Removes a column.

None

None

Declared by WklColumns.

Sub Clear()

Removes all columns.

None

None

None

Declared by WklColumns.