我使用 GetRows() 方法将记录集放入二维数组中。我可以像这样访问单个数组项:
x = rows(colNumber, rowNumber)
现在我想从这个数组中取出一整行/维度并将其传递给另一个函数。
有没有办法做到这一点?我一直找不到。寻找这样的东西:
entireSingleRow = rows(*, rowNumber)
我使用 GetRows() 方法将记录集放入二维数组中。我可以像这样访问单个数组项:
x = rows(colNumber, rowNumber)
现在我想从这个数组中取出一整行/维度并将其传递给另一个函数。
有没有办法做到这一点?我一直找不到。寻找这样的东西:
entireSingleRow = rows(*, rowNumber)
语言中没有这样的结构,但下面的“助手”会做”
REM 'Returns 1-D array of all "columns" in a "row" with index "rowNumber"'
REM 'from the 2-D "from2DArray" array (column, row)'
Function GetCols(ByRef from2DArray, ByVal rowNumber)
Dim cols : cols = UBound(from2DArray, 1)
Dim i
Dim result()
For i = 0 To cols
Redim Preserve result(i)
result(i) = from2DArray(i, rowNumber)
Next
GetCols = result
End Function
entireSingleRow = GetCols(rows, rowNumber)