Public Function SetVariantCube( _ ByRef rIn() As Variant _ , ByVal v1Dim As Variant _ , ByVal v2Dim As Variant _ , ByVal v3Dim As Variant _ , ByVal vValue As Variant _ ) As Boolean
rIn(v1Dim, v2Dim, v3Dim) = vValueExample:
Assuming Dim avarData() As Variant ReDim avarData(0 To 5, 0 To 5, 0 To 5) for example SetVariantCube(10, 5, 5, "RE") = TrueSee also:
SetVariantMatrix Function SetVariantVector Function ReDimPreserveVariantCube FunctionrIn: Three-dimensional array of Variant values. rIn must already be dimensioned before it is passed to this function or else an error will occur. rIn should be dynamic because this function will attempt to redimension the array if necessary so that the specified element can be set.
Copyright © 1999-2005 Entisoft