Слияние полей из разных строк

@VitalijU · Регистрация: 17.11.2014

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

Добрый день! Возможно, тема избитая, но подскажите пожалуйста:

1. Почему во 2м Случае по Митину возникают повторы записей в запросе? см. рис + БД проба.
http://hiprog.com/index.php?op... &Itemid=35

2. Строка

Visual Basic
1
FamUnion = IIf (IsNull(FamUnion), Fam, FamUnion & (", " + Fam))

вызывает ошибку Type mismatch?

shanemac51 · 05.12.2016, 15:31

не уверена, так ли надо

SQL
1
2
3
4
5
6
7
SELECT Таблица1.Код, Таблица1.Номер,
 LAST(Таблица2.дата_1) AS last_data,
 LAST(UnionStr2([Номер],[КБ])) AS FamUnion
FROM Таблица1
 INNER JOIN Таблица2
   ON Таблица1.Код = Таблица2.Код_К
GROUP BY Таблица1.Код, Таблица1.Номер;

Код	Номер	last_data	FamUnion
1	12	05.12.2016	31, 30
4	15	05.12.2016	30, 47

с повтором в КБ и LEFT JOIN

Код	Номер	last_data	FamUnion
1	12	05.12.2016	31, 30
2	13
3	14
4	15	06.12.2016	30, 47, 30
5	16

@VitalijU · 05.12.2016, 18:46 **[ТС]**

Сообщение от shanemac51

так ли надо

Поле FamUnion имеет две разных даты, т.е. должно получится вот так:
12 06.09.15 31
12 05.12.16 30
13
14
15 05.12.16 30, 47
16
Пробовал вместо last поставить First, получается в случае с номером 12 как надо, но при этом № 15 показывает только одну запись 30.

Добавлено через 6 минут

Сообщение от shanemac51

с повтором в КБ и LEFT JOIN

при таком повторе №15 повторяет запись "30" два раза, а №12 показывает только последнюю запись даты!
Но как этого избежать?

shanemac51 · 05.12.2016, 19:29

гашение дубля КД

SQL
1
2
3
4
5
6
7
SELECT Таблица1.Номер,
 Таблица2.дата_1,
 LAST(UnionStr2(Таблица1.Номер & "`" & Таблица2.дата_1,[КБ])) AS FamUnion
FROM Таблица1
  LEFT JOIN Таблица2
   ON Таблица1.Код = Таблица2.Код_К
GROUP BY Таблица1.Номер, Таблица2.дата_1;

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function UnionStr2(Optional ID, Optional Fam)
Static IDOld, FamUnion
If IsMissing(ID) Then
IDOld = Empty
Exit Function
End If
If IDOld <> ID Then
IDOld = ID
FamUnion = Null
End If
If InStr("," & FamUnion & ",", "," & Fam & ",") = 0 Then
FamUnion = (FamUnion + ", ") & Fam
'FamUnion = IIf(IsNull(FamUnion), Fam, FamUnion & (", " + Fam))
End If
UnionStr2 = FamUnion
End Function

Номер	дата_1	FamUnion
12	06.09.2015	31
12	05.12.2016	30
13
14
15	05.12.2016	30, 47
16

@VitalijU · 06.12.2016, 09:43 **[ТС]**

Сообщение от shanemac51

гашение дубля КД

Добрый день! Спасибо за помощь shanemac51!
Появилась другая проблема!
При назначении условия отбора [Введите номер], первый раз отрабатывает отлично!
При повторном запуске запроса (ввожу №15), если запускать запрос несколько раз, появляются повторы!

shanemac51 · 06.12.2016, 09:55

на один номер эта функция не работает ---так как сохранено значение STATIC переменной
также, если возвращаемый список длиннее 255 символов --он будет обрезан до 255симв.

@VitalijU · 06.12.2016, 13:51 **[ТС]**

Сообщение от shanemac51

на один номер эта функция не работает

Я понимаю, что переменная статическая, но значения при первом выполнении запроса правильные!
Как такое может быть?

shanemac51 · 06.12.2016, 13:59

Сообщение от VitalijU

при первом выполнении запроса правильные!

при первом оно просто не присвоено, если выборка пустая --оно тоже не переприсваивается
так что я вижу только вариант PUBLIC и зануление перед вызовом запроса из кода формы

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,937 Записей в блоге: 4
	06.12.2016, 09:55
	на один номер эта функция не работает ---так как сохранено значение STATIC переменной также, если возвращаемый список длиннее 255 символов --он будет обрезан до 255симв. 1

Слияние полей из разных строк

Решение