Код исключения / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Код исключения

25 сообщений из 32, страница 1 из 2

все

Код исключения

#34424902

КонецЦикла

Гость

При пролистывании столбцов грида(т.е. во время события Scrolled), либо при нажатии "->", либо с помощью линейки просмотра при достижении последнего столбца грида, грид "рушится", т.е. на его месте белый прямоугольник.
Причём при использовании линейки просмотра возникает сообщение "Код исключения=С0000005.......", а при нажатии кливиши "->" такого сообщения нет - просто белый прямоугольник.
И ещё, если столбцов 30, то всё нормально, а фигня такая возникает после добавления 31 столбца. Ну и ещё добавлю, что столбцы в грид добавляются "налету" в событии int формы, среда VFP8.

Что за баг?

...

Рейтинг:

0 / 0

29.03.2007, 15:11

| Ответить | Цитировать | Написать

Код исключения

#34424958

Sergey Sizov.

Гость

Код в студию.

...

Рейтинг:

0 / 0

29.03.2007, 15:22

| Ответить | Цитировать | Написать

Код исключения

#34424986

Aleksey-K

Участник

Откуда: Москва

Сообщения: 3 118

Рейтинг: 0 / 0

Случайно индекса нет и тип ControlSource столбца не менятеся от строки к строке?
С уважением, Алексей

...

Рейтинг:

0 / 0

29.03.2007, 15:29

| Ответить | Цитировать | Написать

Код исключения

#34425034

КонецЦикла

Гость

2Sergey Sizov
какой именно код интересует?
в скролде НИЧЕГО нет.

2Aleksey-K
индексов нет, а ControlSource для какждого столбца свой, соответственно и тип данных для каждого столбца свой....

вот метод, который добавляет столбцы в грид

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.

*!* вызов AppendColumn(tcControlSource, tcHeaderCaption, tnColumnWidth, tnAlignment, tcToolTipText, tlEdit, tcComment, tlMovable, tcInputMask)

LPARAMETERS tcControlSource, tcHeaderCaption, tnColumnWidth, tnAlignment, tcToolTipText, tlEdit, tcComment, tlMovable, tcInputMask

WITH THIS

	.AddObject('Column' + ALLTRIM(STR(.ColumnCount +  1 )), 'Column')

	WITH .Columns(.ColumnCount)
		.ControlSource = tcControlSource
		.FontSize = .Parent.FontSize

		WITH .Header1
			.Caption = tcHeaderCaption
			.Alignment =  6 
			.FontBold = .T.
			.FontSize = .Parent.FontSize
		ENDWITH

		.Text1.FontSize = .Parent.FontSize
		.Alignment = tnAlignment
		.Width = tnColumnWidth
		.Visible = .T.
		.ReadOnly = tlEdit
		.ToolTipText = tcToolTipText
		.Comment = tcComment
		.Movable = tlMovable
		.InputMask = tcInputMask
		
	ENDWITH

ENDWITH

...

Рейтинг:

0 / 0

29.03.2007, 15:44

| Ответить | Цитировать | Написать

Код исключения

#34425078

КонецЦикла

Гость

у меня есть подозрения на код метода Refresh грида

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

IF _SCREEN.ActiveForm.ActiveControl.Name = "Grid1"
    IF INLIST(THISFORM.Grid1.Columns(THISFORM.Grid1.ActiveColumn).Header1.Caption, "Заголовок1", "Заголовок2") AND EMPTY(THISFORM.Grid1.Columns(THISFORM.Grid1.ActiveColumn).Comment)
        THISFORM.Grid1.StatusBarText = 'бла-бла-бла'
    ELSE
        THISFORM.Grid1.StatusBarText = ' '
    ENDIF
ENDIF

там возникала ошибка "Columns is not an object", но я подавил в этом методе сообщения об ошибках, вставив в самое начало ON ERROR NOTE и всё работало нормально пока не понадобилось добавить ещё пару столбцов в грид... один добавляю-всё нормально, а как добавлю второй так получаю Код исключения....

...

Рейтинг:

0 / 0

29.03.2007, 15:54

| Ответить | Цитировать | Написать

Код исключения

#34425153

alex11100

Гость

времени нет разбираться,
но глаз мне режет, как Вы ищите акт.колонку

я делаю так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

	* Ищем колонку в коллекции перебором, т.к буду глюки если поменять их местами
	local loColumn
	for each loColumn in this.Columns
	    if loColumn.ColumnORDER=this.ActiveColumn
	    	exit
	    endif
	endfor

и вообще мне
непонятно
зачем Вы в методе объекта снова чего-то ищите
через скрин

в методе родного объекта это this

...

Рейтинг:

0 / 0

29.03.2007, 16:14

| Ответить | Цитировать | Написать

Код исключения

#34425167

alex11100

Гость

чтобы метод
срабатывал или только на перемещения по строкам
или только наперемещение по колонкам
щупайте свойство RowColChange

...

Рейтинг:

0 / 0

29.03.2007, 16:17

| Ответить | Цитировать | Написать

Код исключения

#34425280

КонецЦикла

Гость

Да хер с ним, с этим методом рефреш....
попробовал и оказывается эта байда с кодом исключения вылазит и тогда, когда в этом методе вообще ничего нет....

...

Рейтинг:

0 / 0

29.03.2007, 16:48

| Ответить | Цитировать | Написать

Код исключения

#34425299

alex11100

Гость

ну раз так,то
ищите проблемы в кривости своих рук

пишите, как бык пописял, вот и проблемы

...

Рейтинг:

0 / 0

29.03.2007, 16:53

| Ответить | Цитировать | Написать

Код исключения

#34425312

alex11100

Гость

авторподавил в этом методе сообщения об ошибках

интересно, сами придумали
или кто научил? так лечить ошибки

...

Рейтинг:

0 / 0

29.03.2007, 16:55

| Ответить | Цитировать | Написать

Код исключения

#34425517

КонецЦикла

Гость

Это не лечение ошибок, а подавление сообщений о них, игнорирование их... Представьте себе, бывают такие случаи, когда надо что называется "пропустить мимо ушей" их. Например, повторная модификация таблиц на удалённом компьютере при последующих запусках программы.

ЗЫ. Указать на указтель THIS это всё на что сил (или знаний) хватило?

...

Рейтинг:

0 / 0

29.03.2007, 17:45

| Ответить | Цитировать | Написать

Код исключения

#34425543

alex11100

Гость

вот на уши теперь и наматывайте

да ... уж ...

try
catch
endtry

еще раз покажу как перебрать колонки, если не дошло

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

	* Ищем колонку в коллекции перебором, т.к буду глюки если поменять их местами
	local loColumn
	for each loColumn in this.Columns
	    if loColumn.ColumnORDER=this.ActiveColumn
	    	exit
	    endif
	endfor

...

Рейтинг:

0 / 0

29.03.2007, 17:51

| Ответить | Цитировать | Написать

Код исключения

#34425551

alex11100

Гость

вот такие ... зы ...

...

Рейтинг:

0 / 0

29.03.2007, 17:52

| Ответить | Цитировать | Написать

Код исключения

#34425573

alex11100

Гость

если так умен, то объясни тупому смысл этого шаманизма

Код: plaintext

IF _SCREEN.ActiveForm.ActiveControl.Name = "Grid1"

нельзя гриду
какое-то свойство написать
grid.обрабатыватьКод = .t. или .f.

и если уж у Вас хитрый класс, то писать

if this.обрабатыватьКод
.....
endif

...

Рейтинг:

0 / 0

29.03.2007, 17:56

| Ответить | Цитировать | Написать

Код исключения

#34425618

КонецЦикла

Гость

да ёпт... покоя не даёт этот рефреш грида? забудьте про него! там вообще ничего нет!!!

...

Рейтинг:

0 / 0

29.03.2007, 18:05

| Ответить | Цитировать | Написать

Код исключения

#34425651

КонецЦикла

Гость

да и не надо мне вообще колонки грида перебирать!!!

эта сообщение возникает при достижении последнего столбца грида... не важно как.... по нажатию кнопки "вправо" или по нажатию на стрелку линейки просмотра... ещё раз замечу, что в Refresh и Scrolled вообще ничего нет....

причём, если я например после создания формы перейду на этот последний столбец в обратную сторону, т.е. по нажатию "<-", то потом сколько бы я не нажимал стрелки кливиш "вправо/влево" или полосы линеки просмотра, то никаких "исключений" не возникает...

и при чём здесь конструкция TRY? я говорю об сообщении "Код исключения=С0000005.........."

...

Рейтинг:

0 / 0

29.03.2007, 18:17

| Ответить | Цитировать | Написать

Код исключения

#34425653

alex11100

Гость

а что Вы ждете, какого ответа???

из того кода, что дали, я показал где

хорошо, забыли, дальше будем смотреть???
от того, что Вы добавляете колонки
лис не упадет

забыли все, все напрочь забыли ...
а дальше, что ответить
не видя ни кода, ни примера

авторЧто за баг?

ошибка в коде, чудес не бывает

...

Рейтинг:

0 / 0

29.03.2007, 18:19

| Ответить | Цитировать | Написать

Код исключения

#34425656

alex11100

Гость

при чем трай???

а при чем
ON ERROR NOTE

кто Вас этому научил???

...

Рейтинг:

0 / 0

29.03.2007, 18:22

| Ответить | Цитировать | Написать

Код исключения

#34425661

alex11100

Гость

автор
там возникала ошибка "Columns is not an object", но я подавил в этом методе сообщения об ошибках

давить ничего не нужно,
и лису на рога ставить,
тогда и работать ровно все будет

...

Рейтинг:

0 / 0

29.03.2007, 18:24

| Ответить | Цитировать | Написать

Код исключения

#34425667

КонецЦикла

Гость

та я и спрашиваю какой код интересует?
всё, что связано с гридом - это в коде метода инит формы в грид добавляются столбцы
THIS.Grid1.AppendColumn()

код метода AppendColumn() приведён выше.... больше ничего нет!

...

Рейтинг:

0 / 0

29.03.2007, 18:25

| Ответить | Цитировать | Написать

Код исключения

#34425675

КонецЦикла

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.

при чем трай???

а при чем
ON ERROR NOTE 

кто Вас этому научил???

просто старая привычка, ещё с 2.5, где никаких трэев не было....

или так ON ERROR DO ERR.PRG, где ERR.PRG "пустой" файл....

...

Рейтинг:

0 / 0

29.03.2007, 18:28

| Ответить | Цитировать | Написать

Код исключения

#34425677

alex11100

Гость

set step поможет

...

Рейтинг:

0 / 0

29.03.2007, 18:29

| Ответить | Цитировать | Написать

Код исключения

#34425681

КонецЦикла

Гость

ну тогда уж вопрос и по поводу "Columns is not an object"....

почему "Columns is not an object", если добавляется он AddObject('Column' + ALLTRIM(STR(.ColumnCount + 1)), 'Column')

...

Рейтинг:

0 / 0

29.03.2007, 18:30

| Ответить | Цитировать | Написать

Код исключения

#34425683

alex11100

Гость

авторпросто старая привычка

ну раз привычка, и привычек не меняете, то
советовать нечего

...

Рейтинг:

0 / 0

29.03.2007, 18:30

| Ответить | Цитировать | Написать

Код исключения

#34425701

alex11100

Гость

Columns(nnn)

а сколько ColumnCount???

Вы смотрели???
значение nnn Вы смотрели???

функцию вартайп Вас учили костылем ставить???

нет

лучше ломиком по монику и всего делов

...

Рейтинг:

0 / 0

29.03.2007, 18:34

| Ответить | Цитировать | Написать

25 сообщений из 32, страница 1 из 2

все

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Код исключения

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=34425312&tid=1589617]:	0ms
get settings:	6ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	76ms
get topic data:	11ms
get forum data:	3ms
get page messages:	53ms
get tp. blocked users:	1ms
others:	230ms

total:	403ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы