GetBookmark() As Variant

GetBookmark() As Variant ( Function )

Получить закладку

Синтаксис:

objectvariable.GetBookmark

objectvariable - IDModule

Возвращает: закладку

Пример на VB Script:

Sub Test()
    
    Dim I, RowsCount
    Dim msBM()
    RowsCount = TCSModule.SelectedRowsCount
    If RowsCount > 0 Then
        Redim msBM( RowsCount - 1 )
        For I = 0 To RowsCount - 1 'перебираем выделенные записи
            If TCSModule.GotoSelectedRow(I) Then 'позиционирование на очередную выделенную запись
                msBM( I ) = TCSModule.GetBookmark
            End If
        Next
        TCSModule.Refresh 'сбросит выделение
        Call TCSApp.ShowMessageBox( "Сообщение", "Запомнили выделенные записи и сбросили выделение." )
        For I = 0 To RowsCount - 1
            Call TCSModule.GotoBookmark( msBM( I ) )
            TCSModule.CurrentRowSelected = True
        Next
    End If
    
End Sub