Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Передача параметров в форму  [new]
air1
Member

Откуда:
Сообщений: 146
В меня я вызываю форму: do timerep with 1. На форме делаю свойство:tnFlag=.F. Потом на ините формы делаю:
lPARAMETERS tnFlag
this.nFlag = tnFlag
На клике кнопки пишу:
IF thisform.nFlag=1
mes=mes.nom
god=ALLTRIM(STR(thisform.text5.value))
CREATE CURSOR svrrealbilprom(nommes n(2,0),mygod c(4) )
INSERT INTO svrrealbilprom value(mes,god)
SELECT svrrealbilprom.*, mes.name_mesr ;
FROM svrrealbilprom ;
INNER JOIN mes ON svrrealbilprom.nommes=mes.nom ;
INTO CURSOR svrrealbil
SELECT reestr.*, oas.N, nsiatp.* ;
FROM reestr ;
left JOIN oas ON reestr.cod_podr=oas.nast ;
left JOIN nsiatp ON reestr.kod_atp=nsiatp.n_atp ;
INTO CURSOR svreestr
REPORT FORM svrrealb PREVIEW
REPORT FORM svrrealb TO PRINTER PROMPT
ENDIF
Но я просто как - будто не вижу этого параметра
19 дек 05, 11:23    [2184655]     Ответить | Цитировать Сообщить модератору
 Re: Передача параметров в форму  [new]
Владимир СА
Member

Откуда:
Сообщений: 7881
Т.е. ты не попадаешь в блок IF ???
air1
На форме делаю свойство: tnFlag=.F.
Потом на ините формы делаю:
lPARAMETERS tnFlag
this.nFlag = tnFlag

М.б.
this.tnFlag = tnFlag
и тут сразу проверь
SET STEP ON
В Debugger-е посмотри у объекта формы свойство tnFlag чему равно ???
19 дек 05, 11:35    [2184729]     Ответить | Цитировать Сообщить модератору
 Re: Передача параметров в форму  [new]
alex11100
Guest
в форме проперти nflag!!!!!!!

в ините
lparam tnflag
this.nflag=tnflag


объяснить почему???? или ???
19 дек 05, 11:45    [2184777]     Ответить | Цитировать Сообщить модератору
 Re: Передача параметров в форму  [new]
Владимир СА
Member

Откуда:
Сообщений: 7881
Свойство nFlag формы поставь = 1
В методе Click кнопки перед
IF thisform.nFlag=1
поставь
SET STEP ON
и посмотри чему равно thisform.nFlag ???
19 дек 05, 12:09    [2184920]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить