Описание
Поменять местами две указанные строки.
Опеделение
| Visual Basic |
|---|
Public Sub Swap( _ ByVal AttributeRow1 As Variant, _ ByVal AttributeRow2 As Variant _ ) |
Параметры
- AttributeRow1
- Порядковый номер, ссылка на объект TDMSTableAttributeRow Объект, дескриптор TDMSTableAttributeRow.Handle Свойство или описание TDMSTableAttributeRow.Description Свойство первой строки.
- AttributeRow2
- Порядковый номер, ссылка на объект TDMSTableAttributeRow Объект, дескриптор TDMSTableAttributeRow.Handle Свойство или описание TDMSTableAttributeRow.Description Свойство втолрой строки.
Заметки
Метод выполяет перемещение строк в локальной копии коллекции, без обращения к базе данных. Для того, чтобы изменения были сохранены, необходимо вызвать метод TDMSTableAttribute.Update Метод (иначе редактирование будет потеряно):
Set TAttr = ThisObject.Attributes("ATTR_TABLE")
'Правильно:
Set Rows = TAttr.Rows
Rows.Swap Rows(0), Rows(1)
Rows.Update
'Неправильно:
TAttr.Rows.Swap TAttr.Rows(0), TAttr.Rows(1)