Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема при создании exe-файла / 4 сообщений из 4, страница 1 из 1
08.06.2009, 16:57
    #36031530
UnderFade
UnderFade
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема при создании exe-файла
Здравствуйте.

Столкнулся со следующей проблемой:

Есть форма, созданная в FoxPro 8. Во время работы с формой непосредственно из VFP8 все прекрасно работает, а именно по запросу из базы данных делается cursor и заполняются значения в grid.

Вопрос в следующем: Когда мною был создан exe-файл, перестала заполняться данная таблица. Никаких ошибок при этом не всплывает. На этой же форме также осуществляется другой запрос к этой же таблице и данные записываются в другой grid, эти данные воспроизводятся нормально. Вопрос - почему так происходит?

Суть запроса - в текстовые поля (Region и Block) поступают значения из первого grid-а (первый запрос, который проходит нормально). Запрос к таблице делается на основании значений этих полей, и, если они равны, запись попадает в cursor.

Могу привести текст данного запроса (может ошибка скрылась где-нибудь здесь)

Код: 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.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
*----------------------------------------------------------
*Âûâîä ïîäðîáíîé èíôîðìàöèè ïî âûáðàííîìó êâàðòàëó
*----------------------------------------------------------
THISFORM.DetailedGrid.RecordSource=""
ThisForm.DetailedGrid.ColumnCount =  15 
ThisForm.DetailedGrid.Column1.Width = ThisForm.RegionBlockGrid.Column1.Width 
SELECT Section,Data_lay,Diam,Type_lay,Type_isol,Long,Data_kp,Place_kp,N_id,Qq,Ep,Count_def,Sh_ep,Zamena,P2005;
	FROM Tabmain;
		WHERE (Block=thisform.Block.value) AND (region=thisform.Region.value);
			INTO CURSOR MyCursor2 NOFILTER READWRITE ;

WITH THISFORM.DetailedGrid
     .RecordSource = "MyCursor2"
     .Column1.ControlSource = "MyCursor2.Section"
     .Column1.header1.caption="Ó÷àñòîê"
     .Column2.ControlSource = "MyCursor2.Data_lay"
     .Column2.header1.caption="Äàòà ïðîêëàäêè"
     .Column3.ControlSource = "MyCursor2.Diam"
     .Column3.header1.caption="Äèàìåòð"
     .Column4.ControlSource = "MyCursor2.Type_lay"
     .Column4.header1.caption="Òèï ïðîêëàäêè"
     .Column5.ControlSource = "MyCursor2.Type_isol"
     .Column5.header1.caption="Òèï èçîë."
     .Column6.ControlSource = "MyCursor2.Long"
     .Column6.header1.caption="Äëèíà ó÷àñòêà"
     .Column7.ControlSource = "MyCursor2.Data_kp"
     .Column7.header1.caption="Äàòà êàï ðåìîíòà"
     .Column8.ControlSource = "MyCursor2.Place_kp"
     .Column8.header1.caption="Ìåñòî êàï ðåìîíòà"
     .Column9.ControlSource = "MyCursor2.N_id"
     .Column9.header1.caption="Èäåíòèôèêàòîð"
     .Column10.ControlSource = "MyCursor2.Qq"
     .Column10.header1.caption="Íàëè÷èå ÒÀ"
     .Column11.ControlSource = "MyCursor2.Ep"
     .Column11.header1.caption="Îöåíêà êîðð. èçíîñà"
     .Column12.ControlSource = "MyCursor2.Count_def"
     .Column12.header1.caption="Îáù. êîë-âî äåôåêòîâ"
     .Column13.ControlSource = "MyCursor2.Sh_ep"
     .Column13.header1.caption="Ãîä ïîñë. çàìåðà êîðð."
     .Column14.ControlSource = "MyCursor2.Zamena"
     .Column14.header1.caption="Ìåòðàæ çàìåíåí. òðóá"
     .Column15.ControlSource = "MyCursor2.P2005"
     .Column15.header1.caption="Ïàðàìåòð P*" 
ENDWITH
THISFORM.DetailedGrid.Visible= .T.
*----------------------------------------------------------

ЗЫ проблемы с кодировкой, но я не думаю, что это суть важно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2009, 17:17
    #36031584
UnderFade
UnderFade
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема при создании exe-файла
На форме происходит обращение к различным базам данных, у которых структура и имя таблицы, к которой я обращаюсь одинаковое. Открытие происходит по выбору из списка доступных баз данных, закрытие осуществляется по кнопке, поэтому таблица не могла закрыться до выполнения данного запроса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2009, 17:28
    #36031605
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема при создании exe-файла
Непосредственно перед выполнением запроса посмотри какое значение имеют

thisform.Block.value
thisform.Region.value

Хотя бы через MessageBox(). Скорее всего, хотя бы одно из них имеет не корректное значение, что и приводит к пустой результирующей выборке. Это можно проверить по тому, что вернет _TALLY сразу после выполнения запроса или Reccount("MyCursor2")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.06.2009, 17:43
    #36031646
UnderFade
UnderFade
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема при создании exe-файла
ВладимирМ , спасибо за MessageBox, которые помогли выйти на правильное решение.

Из-под VFP все работало нормально, а под exe не находило, хотя значения полей не затирались.

Ошибку исправил в следущем месте:
Код: plaintext
WHERE (ALLTRIM(Block) = ALLTRIM(thisform.Block.value)) AND (ALLTRIM(region)=ALLTRIM(thisform.Region.value));

хотя, по идее, значения из одной и той же таблицы, и между ними должно быть полное соответствие. Странно, что работало все нормально под VFP и не работало под exe.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема при создании exe-файла / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 465ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1586350]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 36ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 346ms
total:  465ms
x
x
Закрыть


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