FarPoint Spread 获取选中行函数(原创)

'FarPoint Spread 获取选中行函数(原创)  
Private Sub GetSelCount(ByRef SelCount() As Integer) ‘参数是用一个数组来接收的 菜鸟应该可以看懂
    '获得选中的行数
    Dim r     As Integer
    r = 0
    tmpCount = Fp.SelectionCount
    If tmpCount = 1 Then
        ReDim SelCount(1)
        r = Fp.ActiveRow
        SelCount(0) = r
    Else
        ReDim SelCount(tmpCount - 1)
        For i = 0 To Fp.SelectionCount - 1
            r = Fp.GetMultiSelItem(r)
            SelCount(i) = r
        Next
    End If
End Sub