| |
|
|
| | Доброго всем времени суток!
Есть таблица:
КодНак Продукция Тара
20449 Свинина п/т п/туши
20449 Хвосты свиные гофр/кор.
20449 Печень свиная гофр/кор.
20449 Почки свиные пакет п/э
20449 Сердце свиное гофр/кор.
20449 Язык свиной гофр/кор.
20449 Уши свиные гофр/кор.
20449 Колтык свиной пакет п/э
20449 Шкурка свиная пакет п/э
как можно сотворить сборку строки вида: 1)п/туши; 2),3),5),6),7)гофр/кор.; 4),8),9)пакет п/эт
Сейчас строку творю так (в VB).
StrNum = 1
With rst
.MoveLast 'Заполнение набора записями
.MoveFirst 'Возврат в начало
Do Until .EOF
Str = ![Тара]
FullStr = FullStr & StrNum & ")" & Str & " "
StrNum = StrNum + 1
.MoveNext
Loop
.Close
End With
|
А вот какой бы алгоритм придумать для сборки нужной строки?
Заранее благодарен за помощь, если кто откликнется. | |
| |
| |
| |
|
|
| | немного не понял вопроса...
точнее совсем не понял....
что это за вид строки?
1)п/туши; 2),3),5),6),7)гофр/кор.; 4),8),9)пакет п/эт
|
в чём тут фишка? | |
| |
| |
| |
|
|
| | Видимо неповторяющаяся тара.
Выделить тару и собрать. Причем, почему-то, с последним номером.
DISTINCT ? | |
| |
| |
| |
|
|
| | Ну вот сейчас в результате сборки получится строка вида:
1)п/туши 2)гофр/кор. 3)гофр/кор. 4)пакет п/э 5)гофр/кор. 6)гофр/кор. 7)гофр/кор. 8)пакет п/э 9)пакет п/э,
а надо:
1)п/туши; 2),3),5),6),7)гофр/кор.; 4),8),9)пакет п/эт | |
| |
| |
| |
|
|
| | не совсем понятны исходные данные, но если можно то исходный запрос тип такого:
группировка по №п/п и таре, с сортировкой по таре и №п/п
получим :
1)п/туши
2)гофр/кор.
3)гофр/кор.
5)гофр/кор.
6)гофр/кор.
7)гофр/кор.
4)пакет п/э
8)пакет п/э
9)пакет п/э,
дальше пробегеемася по полученной табле и нанизываем:
kontr=tara[1]
for i=1 to 9
if tara[i]=kontr
str=str + i + '),'
else
str=str + kontr + i + '),'
kontr=tara[i]
endif
next
|
получим искомое.
єто же можно сделать запросом - тут как-то извращались, но так проще ИМХО | |
| |
| |
| |
|
|
| | kot_k_k спасибо за отклик.
Получается алгоритм действий такой:
1)сделать отдельную процедуру для нумерации строк по порядку в запросе, пробежать ей по запросу - пронумеровать строки.
2)Отсортировать (группировать) запрос по видам тары.
3)Формировать строку как мне надо.
Так?
А неужто проще никак нельзя?
Ничего встроенного в Access такого нет? | |
| |
| |
| |
|
|
| | в данный момент задача представляет собой чисто аналитические извраты.
базу в студию в формате 2000.
и объяснениея что и для чего ты это хочешь получить.
покажи пальцем где - получим нормальное решения.
может ты вообще не тем путем пошел. | |
| |
| |
| |
|
|
| | аааа
вон что
так можно группировку включить и суммировать одинаковые названия.(повторяющиеся данные)
-----------------------------
кусочек таблицы можно в архиве сюда кинуть*?
access2003 | |
| |
| |
| |
|
|
| | Добрый день.
Ну вот - выдрал кусок базы.
Так, думаю, будет понятно.
Вся эта история потом вставится в бланк отчёта, а там размер фиксированный - тупо мало места - вот и приходится извращаться как-то.
Спасибо за отклик.
А что-то файлик прилиноковывать не хочет - вроде легкий??? | |
| |
| |
| |
|
|
| | попробую на Слил.ру - может туда зальётся... | |
| |
| |
| |
 15 Кб. |
|
| | Дубль 2 (в ЗИП) | |
| |
| |
| |
|
|
| | Для начала тару надо в отдельную таблицу.
В табл. Продукция - код тары :)
Нет? | |
| |
| |
| |
17 Кб. |
|
| | тип того - чем больше нахомутать в последенем ELSE - тем больше красоты получим в выходной стороке.
п.с. русские буквы не рекомендуется использовать в именах таблиц/полей/функций
п.с.с. Dim Str As String - конечно красиво НО Str - это функция VBA. | |
| |
| |
| |
14 Кб. |
|
| | Тоже набросал в обед. Красоту можно навести (типа лишней запятой, если последняя скобка...) | |
| |
| |
| |
|
|
| | вот твоя строка
6),10),16),гофр/кор.; 1),п/туши; 11),14),19),пакет п/э
а надо номер по порядку.
хотя я не пойму для чего такой огород городить.
аффтар объясни ВСЮ идею с этой строкой
п.с. конечно если это не лаба. задания лаб - это бред. | |
| |
| |
| |
|
|
| | Да, не вкурил. Думал - позиции + упаковка. Но нпп сделать не проблема. | |
| |
| |
| |
|
|
| | надо с тыла заходить - STEP -1 | |
| |
| |
| |
|
|
| | там можно по любому вертеть,
можно сделать признак конца строки и крутить по нему, добавляя по №пп вариантов куча.
вот только на хрен все это я не пойму!!!! | |
| |
| |
| |
|
|
| | ВСЯ идея:
Есть база. Убойный цех (не лаба никакая - всё в натурале... - (просьба сильно не пугаться - мы мясо производим - шашлык, колбаску, ведь все едим))) (даже в пост) 
Мясопродукты отпускаются по накладным+Кач.удостоверение+спецификация+счет фактура+...
Параллельно с накладными выбиваются Ветсправки (номерные - типографские бланки строгой отчетности).
На бланке: фиксированные строки, сектора, где должна быть всякая инфа - наименование продукции, клейма, тара, мороженая / охлаждённая, анализы такие, анализы сякие, адреса, условия перевозки и т.д....................
Размер листа - А4.
Информации великая масса. Шрифт уже и так 9. Ещё мельче - совсем беда - не читаемо будет.
Вся информация куда надо - тупо не влезает.
Пытаюсь как-то оптимизировать.
За помощь спасибище огромное - сейчас буду внедрять.
 | |
| |
| |
|
|
|
|
|
|
| |
|
|
| | Эт точно. 
Вот так примерно: (Гиляровский)
"Моментально на столе выстроились холодная смирновка во льду, английская горькая, шустовская рябиновка и портвейн Леве No 50 рядом с бутылкой пикона. Еще двое пронесли два окорока провесной, нарезанной прозрачно розовыми, бумажной толщины, ломтиками. Еще поднос, на нем тыква с огурцами, жареные мозги дымились на черном хлебе и два серебряных жбана с серой зернистой и блестяще-черной ачуевской паюсной икрой. Неслышно вырос Кузьма с блюдом семги, украшенной угольниками лимона.
— Кузьма, а ведь ты забыл меня.
— Никак нет-с… Извольте посмотреть.
На третьем подносе стояла в салфетке бутылка эля и три стопочки.
— Нешто можно забыть, помилуйте-с! Начали попервоначалу «под селедочку».
— Для рифмы, как говаривал И. Ф. Горбунов: водка — селедка.
Потом под икру ачуевскую, потом под зернистую с крошечным расстегаем из налимьих печенок, по рюмке сперва белой холодной смирновки со льдом, а потом ее же, подкрашенной пикончиком, выпили английской под мозги и зубровки под салат оливье…
После каждой рюмки тарелочки из-под закуски сменялись новыми…
Кузьма резал дымящийся окорок, подручные черпали серебряными ложками зернистую икру и раскладывали по тарелочкам. Розовая семга сменялась янтарным балыком… Выпили по стопке эля «для осадки». Постепенно закуски исчезали, и на месте их засверкали дорогого фарфора тарелки и серебро ложек и вилок, а на соседнем столе курилась селянка и розовели круглые расстегаи.
— Селяночки-с!…" | |
| |
| |
| |
|
|
| | и кому оно мешало в 17-м году?
таким же Вальцманам | |
| |
| |
| |
|
|
| | вовка ульянов там пиарился | |
| |
| |
| |
|
|
| | развели тут демагогию!
ну-ка брысь в болталку! | |
| |
| |
| |
|
|
| | ОЙ | |
| |
| |
|
|
