Помогите дописать код процедуры Solve.
Нужно Выбрать для каждого диапазона самые старые станции.
Подробное задание:
Sub solve(ByVal n As Integer, ByRef re As String, ByRef row As DataRowCollection)
Dim i As Integer
For i = 0 To n
re = re & "Диапазон " & row(i)(4) & ": Самая старая станция от " & row(i)(2) & " г." & vbCrLf
Next
End Sub
row(i)(4) – диапазон, текстовое значение, например Long или Short
row(i)(2) – год, цифровое значение, например 2000
Данные берутся из СУБД Access 2007
! Актуально до 12:00 31.05 (до этого времени код должен быть уже у меня)!
ICQ 790477
xs290@mail.ru