Подскажите почему в табличном поле заполняется только одна последняя строка? Что я пропустил?

Загружаю XML в таблицу значений. А таблицу значений вывожу в табличное поле. Заполняется только последняя строка.
Например:
ТЗ = Новый ТаблицаЗначений;
ЭлементыФормы.ТабличноеПоле.Значение = ТЗ;

ТЗ.Колонки.Добавить("Счет");
ТЗ.Колонки.Добавить("Контрагент");

Стр = ТЗ.Добавить();

Для Каждого Стр Из ТЗ Цикл
//Account1 несколько записей в XML
Стр.Счет = Account1;
КонецЦикла;

Для Каждого Стр Из ТЗ Цикл
//Partner1 несколько записей в XML
Стр.Контрагент = Partner1;
КонецЦикла;

Смотрел отладчиком цикл перебирает все строки, но выводит только последнюю.

почему добавление строки не в цикле?

(1) Тогда будет бесконечный цикл.

(1) будет бесконечный цикл

что-то не нашел в коде XML

^)
дык щас всего одна строка в ТЗ..

>>>ТЗ = Новый ТаблицаЗначений; //создали тз
>>Стр = ТЗ.Добавить();//добавили одну строку..

Какие еще строки там ?
:)))

Где-то заполнил ТЗ. Потом добавил в неё ещё одну строку. Потом перебор строк этой ТЗ. Че за бред?

(6) а как надо?

(8) надо обходить XML и там уже добавлять строки в ТЗ

(8) ну подумай..что ле
У тебя сейчас = добавлена только одна строка в ТЗ.
Откуда ты еще Account1,Partner1 взял - нам отсюда не видно

(7) While Read.Read() do
    NameNode = Read.Name;
        
    If  Read.NodeType = XMLNodeType.StartElement  Then
      If NameNode = "Account"  then
         Read.Read();
         Account1 = Read.Value;
    Для Каждого Стр Из ТЗ Цикл
            Стр.Счет = Account1;
        Сообщить(Стр.Счет);
    КонецЦикла;
        
    ElsIf Read.Name = "Partner" then
        Read.Read();
        Partner1 = Read.Value;
        Для Каждого Стр Из ТЗ Цикл
           Стр.Контрагент = Partner1;
           Сообщить(Стр.Контрагент);
        КонецЦикла;
               EndIf;
       EndIf;
EndDo;

вот с XML

(8) вот так надо, вроде и палка длинная


Для Каждого Стр Из КоллекцияПрочитаннаяизХМЛ Цикл
Стр = ТЗ.Добавить();
//Account1 несколько записей в XML
Стр.Счет = Account1;
//Partner1 несколько записей в XML
Стр.Контрагент = Partner1;
КонецЦикла;

(12) ой первой стр надо другое имя дать, копипаст не проверил

Для Каждого Стр1 Из КоллекцияПрочитаннаяизХМЛ Цикл
Стр = ТЗ.Добавить();
//Account1 несколько записей в XML
Стр.Счет = Стр1.Account1;
//Partner1 несколько записей в XML
Стр.Контрагент = Стр1.Partner1;
КонецЦикла;

Перестаньте экономить на буквах - давайте переменным нормальные имена

(13) ушел в бесконечность цикл

ну так хотя бы (хотя хз,чего там у тебя за структура в xml)
    While Read.Read() do
        NameNode = Read.Name;
        If  Read.NodeType = XMLNodeType.StartElement  Then
            If NameNode = "Account"  then
                str =  ТЗ.Add();
                Read.Read();
                str.Счет =  Read.Value;;
            ElsIf Read.Name = "Partner" then
                Read.Read();
                str.Контрагент =  Read.Value;;
            EndIf;
        EndIf;
    EndDo;

Как то почти так:
ТЗ = Новый ТаблицаЗначений;
While Read.Read() do
    NameNode = Read.Name;
        
    If  Read.NodeType = XMLNodeType.StartElement  Then
Стр = ТЗ.Добавить();
      If NameNode = "Account"  then
         Read.Read();
         Account1 = Read.Value;
            Стр.Счет = Account1;
        Сообщить(Стр.Счет);
    ElsIf Read.Name = "Partner" then
        Read.Read();
        Partner1 = Read.Value;
           Стр.Контрагент = Partner1;
           Сообщить(Стр.Контрагент);
               EndIf;
       EndIf;
EndDo;

While Read.Read() do
    
    NameNode = Read.Name;
    
    If  Read.NodeType = XMLNodeType.StartElement  Then
      Read.Read();
      If NameNode = "Account"  then
         Стр = ТЗ.Добавить();
         Стр.Счет = Read.Value;
        
      ElsIf Read.Name = "Partner" then
         Стр.Контрагент = Read.Value;
      EndIf;
    EndIf;
EndDo;
(16) не успел я

А если последовательность тегов Account и Partner другая?

Пока ЧтениеXML.Прочитать() Цикл
  Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "ИмяТегаЗаписи" Тогда
    Стр = ТЗ.Добавить();
    Пока ЧтениеXML.Прочитать() Цикл
      Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "ИмяТегаЗаписи" Тогда
        Прервать;
      КонецЕсли;

      Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Account" Тогда
        ЧтениеXML.Прочитать();
        Стр.Счет = ЧтениеXML.Значение;
      ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Partner" Тогда
        ЧтениеXML.Прочитать();
        Стр.Счет = ЧтениеXML.Значение;
      КонецЕсли;
    КонецЦикла;
  КонецЕсли;
КонецЦикла;

Отчего так не любят DOM и XSL/XSLT?

спасибо всем за помощь

(21) скоро полюблю и это

(21) потому что надо юзать XDTO :)