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

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

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

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

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:
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


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