powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Индекс массива выходит за заданные пределы
5 сообщений из 5, страница 1 из 1
Индекс массива выходит за заданные пределы
    #39298353
dl_93
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди добрые, подскажите пожалуйста.
Есть форма, на ней размещен pageframe (page5). Дак вот, когда выбираешь page2, на котором в свою очередь размещено 50 текстовых полей. С этих полей идет запись в ворд. У полей в ControlSource прописанно ma(1), ma(2) и т.д...В итоге Выдает такую ошибку: ИНДЕКС МАССИВА ВЫХОДИТ ЗА ЗАДАННЫЕ ПРЕДЕЛЫ. ОТМЕНА СВЯЗЫВАНИЯ ОБЪЕКТА TEXT41. И ТАК ПО 50-Е ТЕКСТОВОЕ ПОЛЕ.
Я понимаю, что где-то в коде задан массив, но в итоге ни чего не понимаю
Все обыскала, и нашла где в коде встречается ma():
1 файл. Идет запись в ворд:
ENDTRY
FOR i = 1 TO ALEN(ma)
IF !EMPTY(ma(i))
TRY
oDoc.Bookmarks('П'+ALLTRIM(STR(i))).Range.InsertAfter(ALLTRIM(ma(i)))
CATCH
ENDTRY
ENDIF
ENDFOR

TRY
MD Temp
CATCH
ENDTRY
2.Файл:
PARAMETERS i_res, s_res

IF TYPE('ma')='U'
PUBLIC ma (60)
DIMENSION ma (60)
STORE SPACE(254) TO ma
ENDIF

*!* SELECT priem
*!* s = res1 + res2 + res3 + res4
*!* s = ''
*!* IF TYPE('priem.res')='M' AND !EMPTY(priem.res)
*!* s = priem.res
*!* ENDIF

s = s_res
FOR i = 1 TO ALEN(ma)
* ma(i) = PADR(ALLTRIM( GETWORDNUM(s,i,'•'+CHR(10)+CHR(13)) ),254)
* ma(i) = ALLTRIM( GETWORDNUM(s,i,'•'+CHR(10)+CHR(13)) )
ma(i) = ALLTRIM( GETWORDNUM(s,i,'•'+CHR( )+CHR()) )
ENDFOR
RETURN ma(i_res)

Помогите разобраться.
PS. Программа не моя, попросили сделать форму, а тут такое(((
...
Рейтинг: 0 / 0
Индекс массива выходит за заданные пределы
    #39298366
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибка на которой строке?
...
Рейтинг: 0 / 0
Индекс массива выходит за заданные пределы
    #39298393
dl_93
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dima T,
здравствуйте. Без понятия, если честно.
Просто когда запускаешь программу и выбираешь нужный page, выдает ошибку. Нажимаешь ОК раз 10, и открывается форма.
Я так поняла, что человек, который делал это все..где то ограничил что ли что-то..
...
Рейтинг: 0 / 0
Индекс массива выходит за заданные пределы
    #39298399
dl_93Люди добрые, подскажите пожалуйста.
Есть форма, на ней размещен pageframe (page5). Дак вот, когда выбираешь page2, на котором в свою очередь размещено 50 текстовых полей. С этих полей идет запись в ворд.С полей можно собрать урожай или передать вести. С полей формы ничего записать невозможно в силу того, что НА полях формы ничего нет. В лучшем случае есть инфа В полях формы. У полей в ControlSource прописанно ma(1), ma(2) и т.д...Что нам доказывает ложность вашего предыдущего утверждения. Запись в ворд идет таки не С полей, и даже не ИЗ полей, а таки из массива. Значения элементов которого изменяются с помощью полей формы.В итоге Выдает такую ошибку: ИНДЕКС МАССИВА ВЫХОДИТ ЗА ЗАДАННЫЕ ПРЕДЕЛЫ. ОТМЕНА СВЯЗЫВАНИЯ ОБЪЕКТА TEXT41. И ТАК ПО 50-Е ТЕКСТОВОЕ ПОЛЕ. Что сообщает нам об отсутствии на момент инициализации формы элементов с номерами от 41 до 50.Я понимаю, что где-то в коде задан массив, но в итоге ни чего не понимаю
Слово ничего пишется слитно.Все обыскала, и нашла где в коде встречается ma():
Код: sql
1.
	DIMENSION ma (60)

А теперь запускайте отладчик и ищите место после которого alen(ma) становится меньше заданных в коде 60.
...
Рейтинг: 0 / 0
Индекс массива выходит за заданные пределы
    #39298427
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Используй обработчик ошибок.
Запусти где-нибудь в начале программы.
Код: sql
1.
on error MessageBox('Error ' + str(error()) + chr(13) + 'Prog ' + program() + chr(13) + 'line ' + str(lineno()), 0, 'ERROR')
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Индекс массива выходит за заданные пределы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]