- Dim objargs(1) As Object
- Dim objCellargs As Object()
- ReDim objCellargs(Me.spdDetail.Rows.Count - 1)
- For inti As Integer = 0 To Me.spdDetail.Rows.Count - 1
- objCellargs(inti) = Me.spdDetail.Cells(inti, Me.enmCol.mstjigcd).Value
- Next
- objargs(0) = objCellargs
- objargs(1) = pstrUSER_JIGCD
- intCnt = CInt(FarPoint.CalcEngine.FunctionInfo.CountIfFunction.Evaluate(objargs))
复制代码
但是这个函数在代码里面是可以调用的呀。
现在的问题是参数传递的错误,还是本身这个公开函数不能调用的问题。
取得的结果不是我想要的。
你的意思是产品里的这部分内容实际是不能够直接调用么? |