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

@DrunkWolf · Регистрация: 01.09.2010

Author24 — интернет-сервис помощи студентам

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

должно получиться:
Id1
Id2
Id3 (последняя из трех)
Id4

morgann55 · 28.03.2012, 13:13

Если можно загнать Id в массив, то примерно так:

Visual Basic

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:

@DrunkWolf 0 / 0 / 0 Регистрация: 01.09.2010 Сообщений: 5
		1
	В рекордсете n количество записей, упорядоченных по возрастанию номера Id 28.03.2012, 11:32. Показов 575. Ответов 1 Метки нет (Все метки) Народ, помогите разобраться( В рекордсете n кол-во записей, упорядоченных по возрастанию номера Id. Id некоторых из них может совпадать, такие записи всегда расположены рядом. Необхоидмо перебрать записи рекордсета и вывести так, чтобы при совпадении id выводилась только запись, стоящая последней. Например. Id1 Id2 Id3 Id3 Id3 Id4 должно получиться: Id1 Id2 Id3 (последняя из трех) Id4 0

	28.03.2012, 13:13