Добрый день!

Давно хотел уточнить работу данных команд SelectedIDs SelectedRecords
, но никак не доходили руки.


Вот возникла конкретная потребность выполнять те или иные действия для выбранных записей через CTRL или SHIFT.


Может есть у кого-нибудь примерный код?

Или как вариант пример кода: это изменить выбранные записи через CTRL с логическим полем ДА/НЕТ и присвоить им значение ДА.

Заранее большое спасибо откликнувшимся

Неужели никто не выбирает записи через CTRL и не запускает на них процедуру или vbs?


Может есть хоть какие-то примеры использования данных команд?

Вступайте в Клуб разработчиков простого софта - получайте ответы на форуме в приоритетном режиме и пользуйтесь другими "сливками" клубного членства!

Клуб разработчиков простого софта - ввв.simple-soft.ru/Updates.htm

_________________
90% ответов на ваши вопросы находятся в руководстве, разделах "Вопросы" и "Видео" на нашем сайте.

Так в клубе разработчиков с 2014 года)))

Для использования SelectedIDs нужно разобрать строку на отдельные ID, позиционировать фокус на каждой записи по полученному ID, после чего можно использовать желаемые функции.
Конечно, чтобы добиться результата, нужно было немножко поэкспериментировать.
Для разбора строки можно воспользоваться VBS функцией Split(). Я же сделал так:Работает в "Учёт клиентов" 2.1085 и "Prostoysoft Tables" 3.30

Огромное спасибо ipLVL

Практически все работает))).

Но нашел интересную закономерность: если ID = 11, то выдается вот такая ошибка (ниже скрин)


Проверил работу на Учете клиентов от 21.02.2020

Очевидно, ошибку нужно искать в этой записи и связанных с ней. Непонятно, к чему относится "FROM tblContacts" перед WHERE. Если это убрать, то, может быть, ошибка исчезнет?

В этом то и вопрос)))

Пробовал на разных таблицах и как только попадается ID =11, то сразу вылазят какие-то 777

С откуда и почему они берутся, не понятно(


Выше написанный вами код не менял.
Вставлял в разные таблицы без изменений

Полтергейст .
Я попробовал у себя выделить запись с ID=11, ничего подобного не произошло.

Нашел полтергейста))))

На тестовой базе процедура называлась 11

И почему-то в этом скрипте запускалась))))

Тестировал дальше команду SelectedIDs и обнаружил, что она работает только к главной таблице.

Может как-то по-другому нужно ее писать, чтобы выбирались выделенные записи из подчиненной таблицы?

Ниже скрин

Логически додумываем, ставя себя на место разработчика (А всегда нужно ставить себя на место другого человека)
и пробуем использовать "SelectedSubIDs"

А еще можно так
SelectedRecords
SelectedRecords("OrderModel")
и моменты для доработки есть всегда, о чем можно попросить.

_________________
2B OR NOT 2B = TRUE

Придумал вот такой вариант как временное решение:


Dim sLine, iChrNum, iRecordID, iID
iID = InputFromTable("select * FROM tblProdDog WHERE DogID = <DogID>")
MsgBox iID
If IsNull(iID) Then
MsgBox "Записи не выбраны"
Else
sLine = Trim(iID)
Do While Len(sLine) > 0
iChrNum = InStr(1, sLine, ",")
If iChrNum > 0 Then
iRecordID = Mid(sLine, 1, iChrNum - 1)
iRecordID = Trim(iRecordID)
sLine = Mid(sLine, iChrNum + 1)
sLine = Trim(sLine)
Else
iRecordID = Trim(sLine)
sLine = ""
End If
MsgBox iRecordID
Loop
End If
RefreshActiveTable