0

我使用 GetRows() 方法将记录集放入二维数组中。我可以像这样访问单个数组项:

x = rows(colNumber, rowNumber)

现在我想从这个数组中取出一整行/维度并将其传递给另一个函数。

有没有办法做到这一点?我一直找不到。寻找这样的东西:

entireSingleRow = rows(*, rowNumber)
4

1 回答 1

0

语言中没有这样的结构,但下面的“助手”会做”

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)
于 2013-04-25T04:42:22.537 回答