|
Public Function VariantMatrixRowToVector( _
ByRef rTo() As Variant _
, ByRef vFm() As Variant _
, ByVal vRowNumber As Variant _
) As Boolean Assuming
Static avarTable(0 To 2, 0 To 2) As Variant
' Column--v v--Row
avarTable(1, 1) "James"
avarTable(2, 1) "Johnson"
avarTable(1, 2) "Sam"
avarTable(2, 2) "Smith"
Dim avarFirst() As Variant
for example
VariantMatrixRowToVector(avarFirst(), avarTable(), 2) = True
leaves
LBound(avarFirst) = 0
UBound(avarFirst) = 2
IsEmpty(avarFirst(0)) = True
avarFirst(1) = "Sam"
avarFirst(2) = "Smith"See also: VariantMatrixColumnToVector Function
VariantVectorToMatrixRow FunctionrTo: Dynamic, one-dimensional Variant array that will receive the values. rTo must be dynamic so that this function can re-dimension it appropriately. rTo need not be initialized (with ReDim) before being passed to this function. rTo will be re-dimensioned from LBound(vFm, 1) to UBound(vFm, 1). Copyright © 1999-2005 Entisoft