'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