Fld.FindSingle problem

[Ruslan Zasukhin]

On 9/18/06 12:32 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:

> Set mResult = mResult.InitWithArraySet(tblText.PhysicalRecordCount(),
> arrEditBody)
> Set mVset = mResult
> Debug.Print mVset.Count ' = 1
> 
> Call fldKey.ValueExistsWithCount(sKey, cnt, mResult)
    ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
    also I  do not see sense in this call ?
    you not check its return result.

> 'cnt = 3
> If Not mResult Is Nothing Then
>     'here ALWAYS firstrecord matching sKey in tblText is returned
>     mCurrRec = fldKey.FindSingle(sKey, mResult)
> Else
>     mCurrRec = 0
> End If
> 
> If mCurrRec <> 0 Then
>     tblText.RecID = mCurrRec
>     txtEdit.Text = cStringSAR(fldBody.GetString, Chr$(255), vbNewLine, 0)
> Else
>     txtEdit.Text = vbNullString
> End If
> 
> End Sub

-- 
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]