Имя: Пароль:
1C
1С v8
Подсчитать количество одинаковых элементов в массиве или ТЗ
,
0 r_i_n_i_k
 
19.01.12
10:44
как можно реализовать сабж, подскажите пжл?
1 Cube
 
19.01.12
10:45
Скопировать, свернуть, количество?
2 r_i_n_i_k
 
19.01.12
10:45
(1)?
3 Cube
 
19.01.12
10:48
(2) Ещё и пожевать?)) Ладно:
ВремТЗ = ТЗ.Скопировать();
ВремТЗ.Свернуть("МояКолонка");
КоличествоОдинаковыхЭлементов = ВремТЗ.Количество();
4 Vakhrin
 
19.01.12
10:49
select Field, count(field) from Table group by Field
5 Vakhrin
 
19.01.12
10:49
(3) ?!
6 Cube
 
19.01.12
10:50
(4) А ТЗ перед этим типизировать и завернуть в ВТ, да?)
7 Vakhrin
 
19.01.12
10:59
(6) А в (3) получится количество разных, а не одинаковых )
8 r_i_n_i_k
 
19.01.12
11:00
(7) ага именно так
а в (4) что там?:)
9 Starhan
 
19.01.12
11:02
добавить колонку
Вставить туда значение 1
и свернуть
10 Cube
 
19.01.12
11:05
(7) (8) Что, совсем думать не хотите? Ну ладно:

ВремТЗ = ТЗ.Скопировать();
ВремТЗ.Колонки.Добавить("Количество");
ВремТЗ.ЗаполнитьЗначения(1, "Количество");
ВремТЗ.Свернуть("МояКолонка", "Количество");
Для Каждого СтрокаТЗ Из ВремТЗ Цикл
   КоличествоОдинаковыхЭлементов = СтрокаТЗ.Количество;
КонецЕсли;
11 Vakhrin
 
19.01.12
11:11
(10) это совсем другое дело )
12 r_i_n_i_k
 
19.01.12
11:12
Спасибо!!!!!!!!!!!
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс