在SQABasic中如何在Function中返回一个二维的数组?

watercloset

在SQABasic中如何在Function中返回一个二维的数组。我这样写对不对呢？
Function test(…………..) As Variant

dim RobotData () As Variant

redim preserve RobotData (2, 9)



………………

RobotData (0, 1) = rs.field(0).value



test = RobotData(,)                                      ‘还是这样写：test = RobotData?          Test = RobotData()?

                                                                        ‘最后两种方式我试了一下都编译不通过



End Function
另外，怎么使用语句来接受这个函数返回的数组呢？谢谢

popsmart

Function GetArray( out_RobotData() As Variant, in_iLen As Long) As Long

   
    Dim i As Long

    redim preserve out_RobotData ( in_iLen )

    For i = LBound(out_RobotData) To UBound(out_RobotData)
   
        out_RobotData(i) = i
   
    Next i

End Function


Sub Main

    Dim lRet            As Long
    Dim RobotData()     As Variant
   
    lRet = GetArray( RobotData, 6 )

End Sub