Форум поддержки пользователей LibreOffice, Apache OpenOffice

Главная категория => Макросы => Тема начата: eeigor от 10 сентября 2020, 13:59

Название: Не работает <For Each>
Отправлено: eeigor от 10 сентября 2020, 13:59
Win 10
Установил LO 7.0
Calc
Перестал работать цикл <For Each>.
Сделал пример попроще...
Что бы это значило?

Sub Main
   Dim e  'Dim i%
   Dim strings: strings = Array("a", "b", "c")
   Dim res$
             
   For Each e in strings()  'For i = 0 To UBound(strings)
       res = res & e  'res = res & strings(i)
   Next
   print res
End Sub


Несовместимые типы данных. А раньше совещались, и всё правильно. Обычный цикл, разумеется, работает.
Название: Re: Не работает <For Each>
Отправлено: sokol92 от 10 сентября 2020, 14:00
Михаил этот баг (https://forumooo.ru/index.php/topic,7953.msg55434.html#msg55434) уже исправил. Поставьте текущую версию 7.0.1
Название: Re: Не работает <For Each>
Отправлено: eeigor от 10 сентября 2020, 14:17
Всё увидел. Спасибо.