|
|
Public Sub CreateSSetFilter(ByRef filterType As Variant, ByRef filterData As Variant, ParamArray filter())
If UBound(filter) Mod 2 = 0 Then
MsgBox "Fileter 参数无效"
Exit Sub
End If
Dim fType As Integer
Dim fData As Variant
Dim count As Integer
count = (UBound(filter) + 1) / 2
ReDim fType(count - 1)
ReDim fData(count - 1)
Dim i As Integer
For i = 0 To count - 1
fType(i) = fType(2 * i)
fData(i) = fData(2 * i + 1)
Next i
filterType = fType
filterData = fData
有没有人能帮我看看这段代码中，选择集过滤器的数组的维数如何确定的？怎么规定的？
|
|
置顶卡
