Locate(KeyProperties As Variant,KeyValues As Variant,LocateOptions As Long) As Boolean ( PropertyGet )

Позиционирование

Синтаксис:

objectvariable.Locate( KeyProperties, KeyValues, LocateOptions )

objectvariable - IDModule

KeyProperties - свойство или массив свойств (имеющие отображения на поля), можно передать как индекс свойства, имя или интерфейс.

KeyValues - значения свойств (если массив, то размер должен быть равен количеству KeyProperties)

LocateOptions - пока не используется

Возвращает: True - если найдено, False - если не найдено


Пример на VB:
Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Spr As CSDN.Parameters
    Set Spr = App.Parameters
    Dim KeyProperties(1) As String
    Dim KeyValues(1) As String
    
    KeyProperties(0) = "NOTE"
    KeyProperties(1) = "NAME"
    
    KeyValues(0) = "L"
    KeyValues(1) = "Длина поковки"
    If Spr.Locate(KeyProperties, KeyValues, 0) Then
        I = Spr.ShowModal("Убедимся что сработало!")
        
    End If
    Set Spr = Nothing
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub