Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Explorer
это, поди, курсовик ИМХО (допустим на скорую руку)

ЗАДАНИЕ:

дано таблица tblData


Column1
Column2
,,,
Column5


таблица содержит три записи, нас волнуют значения в Column1 каждой из записей

нужно сравнить значение двух соседних записей на равенство по первому полю (Column1)

если значения Column1 двух соседних записей равны
добавить в одну из записей (в данном случае по ТЗ правого плеча равенства)
значения всех (кроме первого) полей записи левого плеча равенства, соответственно
и одну из этих записей удалить (про третью запись в ТЗ вообще ничего не сказано)

предположим три возможных варианта по несколько комбинаций


1) все значения в Column1 в соседних записях не равны
1а) <a-b-c>
1б) <a-c-a>



2 все значения column1 во всех записях равны
2а) <a-a-a> 




3) какие-то два значения в соседних записях равны
3а) <a-a-c>
3б) <b-a-a>

_________________________________

ДОПУЩЕНИЯ:

ИМХО можно предположить что в случае трех записей в таблице мы спокойно можем
отбирать записи по First и Last, поскольку предполагаем что:


А) все минимально необходимые для решения данные приведены в условии
Б) First<Middle<Last OR First>Middle>Last (при 3-х записях фиолетово)
В) задача имеет смысл и, вероятно, решение (или может иметь решение)

задача сводится к сравнению "трех разноцветных кошек сидящих на скамейке в ряд"
_________________________________

ТЕХ. ЗАДАНИЕ:

приводя задачу к нормальному виду

нужно удалить некоторую одну запись в таблице, предыдущую той, значения Column1
которой совпадает со значением Column1 той, что должна быть из таблицы удалена

или

из трех кошек сидящих в ряд, нужно выкинуть одну кошку сидящую слева от той с которой она
одинакового окраса и никого не волнует какого цвета у нее глаза или какой она носит бантик

выкрики на тему: -"а как же с переносом значений (часть 2 п. 2 ТЗ)" оставим на совести вопиющих
в такой формулировке задача не представляет никакой сложности - на слабую 3-ку по информатике


_________________________________
АКСИОМА:

если любое из допущений покажется автору вопроса слишком смелым
он отправляется убивать себя ап стену (as Variant учить олбанский)
_________________________________

РЕШЕНИЕ:

1а); 1б) все кошки тупо курят или идут по домам
2а); 3а) первая кошка вылетает в трубу
зб) вторая кошка вылетает в трубу

ПРИМЕЧАНИЕ:

остальное комбинаторика - типо "равнение налево" (для кошек)
вопрос только в том, сколько сравнений нужно произвести


вылетает только одна кошка (про третью ничего не сказано в ТЗ)
во всех случаях третья кошка вообще и не думает напрягаться
перекрашивать кошек в другой цвет нет ровно никакого смысла

ЗЫ

счет ведется слева направо, кошки сидят к нам лицом :)

_________________________________
ДИСКЛАЙМЕР:

последовательность приведенных допущений не существенна
Осмору респект за терпение и извинения за нетерпимость


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.