vb 数组参数问题

Question

本帖最后由 t_sheng 于 2012-05-18 11:27:59 编辑

Answer 1

Public Function Update(byval rstGoodsCode() As ADODB.Recordset）

Answer 2

楼上的来搞笑的吗楼主的问题是没初始化数组
用函数前 redim就行了

Answer 3

Update(mrstReturnGoodsCode())'去掉红色的括号

Answer 4

既然外部已经用ADO对象定义了mrstReturnGoodsCode数组，函数内部就不能再用ADO对象定义数组了，只能用关键字ParamArray定义变体数组：
'先引用ADO对象
Option ExplicitPrivate mrstReturnGoodsCode() As ADODB.RecordsetPublic Function Update(ParamArray rstGoodsCode() As Variant)
    'Set rstGoodsCode() = mrstReturnGoodsCode()
    MsgBox ("ssdfsdfg")
End Function
Private Sub Command1_Click()
    ReDim mrstReturnGoodsCode(100)
    
    Update (mrstReturnGoodsCode())End Sub