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