В рекордсете n количество записей, упорядоченных по возрастанию номера Id - VB

  1. Народ, помогите разобраться( В рекордсете n кол-во записей, упорядоченных по возрастанию номера Id. Id некоторых из них может совпадать, такие записи всегда расположены рядом. Необхоидмо перебрать записи рекордсета и вывести так, чтобы при совпадении id выводилась только запись, стоящая последней. Например. Id1 Id2 Id3 Id3 Id3 Id4 должно получиться: Id1 Id2 Id3 (последняя из трех) Id4


textual

Код к задаче: «В рекордсете n количество записей, упорядоченных по возрастанию номера Id - VB»

Dim Id(6) As String '(или числа)
 
N=6
 
For i = 1 To N-1: If Id(i) = "" Then Exit For
If Id(i) = Id(i+1) Then
For j = i To N:
Id(j) = Id(j+1)
Next:
Id(N) = ""
N=N-1
i = i - 1
End If
Next:

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5



Похожие ответы
  1. Привет! Я как-то довольно давно заинтересовался темой цифровых подписей, какова их защита, как они устроены изнутри, как с ними работать из-под CryptoAPI. По мере изучения возникало много подводных камней. Наконец, я готов рассказать и вам на доступном языке о принципах шифрования и подписания, практике и готовой реализации проверки подписей. Затронуто много косвенных тем, так что статья весьма объёмна. Запаситесь чипсами и пивом . А в перерывах, можете сразу пощупать 3-ю часть статьи, где вас ждёт готовая программа, а также несколько хорошо прокомментированных исходников, в т.ч. для пакетной проверки всех PE-файлов в системе с отчётом в формате CSV. Большинство примеров кода представлено на языке VB6, просто потому что на C++ примеров очень много в сети, а на этом языке подобных комплексных реализаций я не видел вообще, да и этот язык я лучше всего знаю. Итак, статья состоит из 3 частей:Часть 1. ТеорияЧасть 2. Описание реализацииЧасть 3. Набор программСодержание:Часть 1. Кусочек теории.1.1. Что такое электронная цифровая подпись (ЭЦП) и зачем она нужна? 1.2. Надёжность ЭЦП и эксплуатация вредоносным ПО.1.2.1. Человеческий фактор и приватные ключи. 1.2.2. Уязвимости в структуре ЭЦП. 1.2.3. Стойкость алгоритма хеша.1.3. Что означает, легитимна ли подпись? 1.4. Терминология, алгоритм подписания и проверки.1.4.1. Что такое Authenticode (Code signing). 1.4.2. Что такое хеш. 1.4.3. Что такое выборка (digest). 1.4.4. Что такое приватный и публичный ключи, симметричное и асимметричное шифрование. 1.4.5. Что такое сертификат, центр сертификации и цепочка доверия. 1.4.6. Форматы файлов сертификатов и ключей для Authenticode подписи и их преобразование.а) Виды форматов. б) Преобразование форматов.1.4.7. Что такое подпись и подписание. 1.4.8. Что такое отпечаток (Thumbprint / Fingerprint). 1.4.9. Как проверяется подпись. 1.4.10. Чем отличаются понятия «алгоритм подписи», «алгоритм хеша подписи», «алгоритм хеша выборки», «алгоритм хеша отпечатка».1.5. Само-подписанный (self-signed) сертификат. 1.6. Двойная (вторичная) подпись. 1.7. Способы подписания 1.8. Перечисление сертификатов в хранилище 1.9. Удаление подписи. 1.10. Покупка сертификата.Часть 2. Описание реализации программы проверки подписей2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписейЧасть 3. Программа проверки Authenticode ЭЦП- Назначение - Совместимость / Требования - Примеры использования / Флаги и дополнительная информацияЗаключение Приложения и исходные коды Дополнительная литература

  1. Это продолжение. См. также другие части этой статьи:Часть 1. Кусочек теории.Часть 3. Программа проверки Authenticode ЭЦПЧасть 2. Описание реализации программы проверки подписейСодержание: 2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписей

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Всем салют. Возможна ли генерация QR-кода на VB6? На C# и VB.NET существуют библиотеки, для работы с QR. Существуют ли таковые на VB6?

  1. Здравствуйте, помогите пожалуйста разобраться в чем тут ошибка?

  1. как определить язык windows на VB6.0?

  1. Всем привет! Поделитесь, может у кого-нибудь есть решение, как написать строку (например: "Text1.Visible=false: MsgBox Text1.Text") и выполнить её, как строку кода? Оговорюсь сразу, EbExecuteLine не подходит! Написал кучу кода с её использованием, а после компиляции программа начинает вываливаться, хотя в режиме разработки всё работает, и эта проблема не только у меня, а повсеместная. Был у меня примерчик - убей, не могу отыскать! В гуглях, практически ничего нет или везде пример с EbExecuteLine. Выручайте!

  1. Дано четырехзначное число. Если оно читается слева направо и справа налево одинаково, то вывести yes, иначе no. помогите решить на VB

  1. Выбор типа решетки в конструкции

  1. Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры найти количество и сумму цифр для каждого из пяти данных целых чисел.