FindValueAsArraySet

[Ruslan Zasukhin]

On 5/9/06 11:53 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:

Hi Joakim,

> I get very strange return value from FindValueAsArraySet, in fact it doesn't
> seem to honor the "inSelection as IVSet = null" argument below when a set is

This can be true...Kirill please check VCOM on this issue.

> passed but treat it as if was nil. The 2 oSet.Count below gives same value.
> Is this because the passed set is of type VArraySet? From previous reply
> from you I understood Vset was an abstraction for VArraySet and VBitSet so
> it should be OK to pass them to a Vset argument?
> 
>> From conclusions in my previous given tests I have now been able to make
> FindValueAsArraySet actually return a set, but it returns too many items as
> always searching whole table. I haven't tested yet to make it a Vset to see
> what it returns, will do so, but want to be clear of if there is special
> rules in passing VArraySet and VBitSet as all argument parameters are
> defined as Vset.
> 
> Private Function FindZoneDataID(ByVal Lat As Long, ByVal Lng As Long, ByVal
> SgnLat As Long, SgnLng As Long, oAllPlaces As VArraySet) As Long
> Dim diffM As Long, diffP As Long, Fact As Long, Pid As Long, ptr As Long
> Dim Itr As VSetIterator
> Dim oSet As VSet
> Dim lnk As VLink
> 
> Dim oLatPlaces As VArraySet
> Dim oLngPlaces As VArraySet
> 
> Set oLngPlaces = fLngDeg.FindValueAsArraySet(Lng, oAllPlaces)
> Set oSet = oLngPlaces
> Debug.Print oSet.Count ' 1176
> 
> Set oLngPlaces = fLngDeg.FindValueAsArraySet(Lng)
> Set oSet = oLngPlaces
> Debug.Print oSet.Count ' 1176

-- 
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]