InsertColumns Method (XArrayDB)

Inserts new columns into an array object.

Syntax

XArrayDB.InsertColumns (index, [count])

Arguments

index is a long integer specifying the index of the first column to be inserted.

count is an optional long integer specifying the number of columns to be inserted. If omitted, this argument defaults to 1.

Return Value

A long integer specifying the number of columns successfully inserted.

Remarks

This method inserts count columns into an XArrayDB object starting at column index and returns the number of columns successfully inserted.

Example

The following example initializes an XArrayDB object with 10 rows and 6 columns, then inserts a new column before the fourth column:

MyArray.ReDim 1, 10, 1, 6

Dim i, j As Integer

For i = 1 To 10

For j = 1 To 6

MyArray(i, j) = "Row " & i & ", Col " & j

Next j

Next i

' Prints Row 1, Col 4.

Debug.Print MyArray(1, 4)

' Prints Row 1, Col 5.

Debug.Print MyArray(1, 5)

' Insert a new column at index 4.

Dim result As Long

result = MyArray.InsertColumns(4)

' Prints 1.

Debug.Print result

' Prints 7.

Debug.Print MyArray.Count(2)

' Prints True.

Debug.Print IsEmpty(MyArray(1, 4))

' Prints Row 1, Col 4.

Debug.Print MyArray(1, 5)

' Prints Row 1, Col 5.

Debug.Print MyArray(1, 6)