On 4/30/06 2:06 PM, "Joakim Schramm" <joakim at astrocalc .D.OT com> wrote:
> Why does the (VB6) code below not work? NextRecord does't do anything just
> stay on same RecId 1, so field references etc. never gets updated etc. does
> COM object don't work with With ... End With?
Kirill,
Please check point with in VCOM asap
With ... End With
> Dim IdRec As Long
> Dim B As Boolean
> Dim sKey As String
> Dim fldPtr As VField
> Dim fldFK As VField
> Dim fldPK As VField
> Dim mTblCountry As VTable
> Dim mTblAlias As VTable
>
> 'prepare binary links
> 'Set mLinkCA = mDatabase.Link(lnkCountryAlias)
> Set mTblCountry = mDatabase.Table(tblCountry & sLang)
> Set mTblAlias = mDatabase.Table(tblCountryAlias)
>
> With mTblAlias
> Set fldPtr = .Field("PtrAlias")
> Set fldFK = .Field("CID")
> Set fldPK = mTblCountry.Field("CID")
> Call .FirstRecord
>
> Do While Not .EOF
> sKey = Trim$(fldFK.Value)
> IdRec = fldPK.FindSingle(sKey)
>
> If IdRec <> 0 Then
> fldPtr.Value = IdRec
> .UpdateRecord
> Else
> MsgBox "No " & sKey
> End If
>
> B = .NextRecord
> Loop
>
> End With
>
> Only part working is
>
> sKey = Trim$(fldFK.Value)
> IdRec = fldPK.FindSingle(sKey)
>
> If IdRec <> 0 Then
> fldPtr.Value = IdRec
> .UpdateRecord
> Else
> MsgBox "No " & sKey
> End If
>
> What am I doing wrong?
--
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@lists.macserve.net
http://lists.macserve.net/mailman/listinfo/valentina
©2006 Ruslan Zasukhin |
