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

Формулировка задачи:

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

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

textual
                            Листинг программы 
                        

                            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

Похожие ответы