Table structure?

[Joakim Schramm]

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Ruslan Zasukhin
> Sent: 30 April 2006 17:07
> To: valentina at lists.macserve.net
> Subject: Re: Table structure?
> 
> On 4/30/06 6:04 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> 
> >> What types of fields you see ?
> > 
> > I create VarChar but Vstudio say String YES, that's it.
> 
> Aha. Then please add this issue into our Mantis!
>  
> > I just found a part in kernel doc about Vset and VBitSet 
> and array, so 
> > maybe I can figure it out from there. It's a lot to get 
> into the head!
> 
> Just keep in mind that we all try implement in NATURAL EASY way :-)
> 

Ok but what I am doing wrong now, I get a cathastrofic automation error on
the secont loop for .LinkRecords below. The first loop went fine and I can
see the linked items in Vstudio.

Set mTblPlaces = mDatabase.Table(tblPlaces)
Set mLink = mDatabase.Link(lnkCountryPlace) ' lnkCountryPlace = const

With mTblCountry

    If .RecordCount Then
        Set fldPK = .Field("CID")
        Set fldFK = mTblPlaces.Field("FK_CID")
        .FirstRecord

        Do
            IdRec = .RecID
            Set RecBitSet = fldFK.FindValue(fldPK.Value) 'As IVBitSet
            Set RecSet = RecBitSet
            Set RecItr = RecSet.MakeNewIterator
            recs(0) = .RecID

            With RecItr

                Do
                    recs(1) = .Value
                    Call mLink.LinkRecords(recs) <<-- crash here on second
parent loop (RecId = 2) recs(2,1)
                Loop While .NextItem

            End With

        Loop While .NextRecord

    End If

End With

Joakim

> --
> 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]
> 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>