> -----Original Message-----
> From: valentina-bounces At lists D.O.T macserve.net
> [mailto:valentina-bounces@lists.macserve.net] On Behalf Of
> Ruslan Zasukhin
> Sent: 30 April 2006 17:07
> To: valentina At lists D.O.T macserve.net
> Subject: Re: Table structure?
>
> On 4/30/06 6:04 PM, "Joakim Schramm" <joakim@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 D.O.T macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>
_______________________________________________
Valentina mailing list
Valentina@lists.macserve.net
http://lists.macserve.net/mailman/listinfo/valentina
©2006 Joakim Schramm |
