Имя: Пароль:
1C
1С v8
добавить номер строки в цикле
0 Popkorm
 
27.10.11
15:39
Подскажите как пронумеровать строки?


   Тор100 = Новый ТаблицаЗначений;
   Тор100.Колонки.Добавить("Код");
   Тор100.Колонки.Добавить("Номенклатура");
   Тор100.Колонки.Добавить("Цена");
   Тор100.Колонки.Добавить("Количество");
   Тор100.Колонки.Добавить("Сумма");
   Тор100.Колонки.Добавить("ISBN");
   Тор100.Колонки.Добавить("Номер");

       Номер = 0;
       Номер =  Номер+1;
   Для Каждого СтрТор100 Из Торы100 Цикл
         НС     = Тор100.Добавить();
         НС.Код = СтрТор100.Код;
         НС.Номенклатура = СтрТор100.Номенклатура;
         НС.Цена = СтрТор100.Цена;
         НС.Количество = СтрТор100.Количество;
         НС.Сумма = СтрТор100.Сумма;
         НС.ISBN = СтрТор100.ISBN;
         НС.Номер = (СтрТор100.Номер-1)+Номер;
        // НС.Номер = СтрТор100.Номер+1;
   КонецЦикла;
1 Jstunner
 
27.10.11
15:40
обратитесь к специалисту
2 Popkorm
 
27.10.11
15:40
каждой строке присвоить номер:
1 Номеклатура1
2 Номеклатура2
3 Номеклатура3
и т.д.
3 Ненавижу 1С
 
гуру
27.10.11
15:40
Номер = 0;
   Для Каждого СтрТор100 Из Торы100 Цикл
                 Номер =  Номер+1;
         НС     = Тор100.Добавить();
         НС.Код = СтрТор100.Код;
         НС.Номенклатура = СтрТор100.Номенклатура;
         НС.Цена = СтрТор100.Цена;
         НС.Количество = СтрТор100.Количество;
         НС.Сумма = СтрТор100.Сумма;
         НС.ISBN = СтрТор100.ISBN;
         НС.Номер = СтрТор100.Номер;
   КонецЦикла;
4 Ненавижу 1С
 
гуру
27.10.11
15:41
Номер = 0;
   Для Каждого СтрТор100 Из Торы100 Цикл
                 Номер =  Номер+1;
         НС     = Тор100.Добавить();
         НС.Код = СтрТор100.Код;
         НС.Номенклатура = СтрТор100.Номенклатура;
         НС.Цена = СтрТор100.Цена;
         НС.Количество = СтрТор100.Количество;
         НС.Сумма = СтрТор100.Сумма;
         НС.ISBN = СтрТор100.ISBN;
         НС.Номер = Номер;
   КонецЦикла;
5 Рэйв
 
27.10.11
15:41
Для Каждого СтрТор100 Из Торы100 Цикл
           Номер =  Номер+1;
         НС     = Тор100.Добавить();
         НС.Код = СтрТор100.Код;
         НС.Номенклатура = СтрТор100.Номенклатура;
         НС.Цена = СтрТор100.Цена;
         НС.Количество = СтрТор100.Количество;
         НС.Сумма = СтрТор100.Сумма;
         НС.ISBN = СтрТор100.ISBN;
         НС.Номер = (СтрТор100.Номер-1)+Номер;
         НС.Номер = Номер;

   КонецЦикла;
6 izekia
 
27.10.11
15:41
урааааа
7 Popkorm
 
27.10.11
15:46
(4)+(5) благодарствую,чет мозга уже не работает
8 Mort
 
27.10.11
15:56
Какой АДЪ
9 Ненавижу 1С
 
гуру
27.10.11
15:56
(0) прочти про ЗаполнитьЗначенияСвойств