ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / (Do Form MyForm With ...) Передача параметров в объекты
5 сообщений из 5, страница 1 из 1
(Do Form MyForm With ...) Передача параметров в объекты
    #33089965
-Moryachok-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-Moryachok-
Гость
Необходимо запустить форму с параметрами
Код: plaintext
1.
DO FORM docum_s\f_edit_grid.scx WITH "789456", "Parametr nomer 2",  88 , "кг"
в Init'е формы пишу:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
LPARAMETERS tcKmat, tcName, tnKeip, tcNameEi
ThisForm.Caption = dfCaption
ThisForm.Label1.Caption = "Код м-ла"
ThisForm.Label2.Caption = "Наименование материала"
ThisForm.Label3.Caption = "Ед. изм."
WITH ThisForm.text1 
	.Alignment =  1  
	.ControlSource = ""
	.ControlSource = tcKmat
	.Format = "K"
	.InputMask = "999999"
ENDWITH 
MESSAGEBOX(tcName)
WITH ThisForm.text2 
	.Alignment =  0  
	.ControlSource = ""
	.ControlSource = tcName	&& Ошибка!!!
	.Format = "K" 
ENDWITH 
*!*	WITH ThisForm.Combo1 
*!*		.RowSourse = 
*!*	ENDWITH
При передаче ControlSource второму TextBox'у вылетает ошибка 1742, хотя параметр tcName и tcKmat -> Character, а ошибка вылазит только на Text2. Если ставлю вместо tcName -> tcKmat то все нормально...Параметр tcName виден...
...
Рейтинг: 0 / 0
30.05.2005, 09:49:24
| Ответить | Цитировать | Написать  
(Do Form MyForm With ...) Передача параметров в объекты
    #33089987
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Во-первых, свойство ControlSource принимает символьную переменную, которая внутри себя содержит имя источника данных. Т.е. в твоем случае:

Код: plaintext
1.
tcName = "Parametr nomer 2"
ThisForm.Text2.ControlSource = m.tcName

Означает, что фактически источником данных для TextBox будет содержимое параметра

ThisForm.Text1.ControlSource = "Parametr nomer 2"

Естесственно, это вызывает недоумение.

Во-вторых, присваивать ControlSource в качестве источника данных переменную памяти, надо с крайней осторожностью. Весь вопрос в области видимости переменных. В данном случае, по завершении события Init-формы, данные переменные памяти будут уничтожены.

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

ThisForm.Text2.Value = m.tcName
...
Рейтинг: 0 / 0
30.05.2005, 10:03:50
| Ответить | Цитировать | Написать  
(Do Form MyForm With ...) Передача параметров в объекты
    #33090112
-Moryachok-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-Moryachok-
Гость
Код: 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.
LPARAMETERS tcKmat, tcName, tnKeip, tcNameEi
*!*	PRIVATE pcKmat, pcName, pnKeip, pcNameEi
PUBLIC pcKmat, pcName, pnKeip, pcNameEi
pcKmat=tcKmat
pcName=tcName
pnKeip=tnKeip
pcNameEi=tcNameEi
*!*SET STEP ON 
ThisForm.Caption = dfCaption
ThisForm.Label1.Caption = "Код м-ла"
ThisForm.Label2.Caption = "Наименование материала"
ThisForm.Label3.Caption = "Ед. изм."
WITH ThisForm.text1 
	.Alignment =  1  
*!*		.ControlSource = ""
*!*		.ControlSource = 
	.Value = m.pcKmat
	.Format = "K"
	.InputMask = "999999"
	.ReadOnly = .F.
ENDWITH 
WITH ThisForm.text2 
	.Alignment =  0  
*!*		.ControlSource = ""
*!*		.ControlSource = 
	.Value = m.pcName
	.Format = "K" 
	.ReadOnly = .F.
ENDWITH 
WITH ThisForm.Combo1 
	.RowSource = ""
	.RowSourceType =  0  
	.RowSource = m.gaUnits
	.RowSourceType =  5  
	.ReadOnly = .F.
ENDWITH 
*!*	MESSAGEBOX(tcName)
Не ругается, но 2 TextBox пустой, хотя опять же параметр виден в Init'e и проблемму с видимостью в других методах решил B-D ....
Ни чё не понимаю! (с) Следствие ведут колобки...
...
Рейтинг: 0 / 0
30.05.2005, 10:53:17
| Ответить | Цитировать | Написать  
(Do Form MyForm With ...) Передача параметров в объекты
    #33090139
-Moryachok-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-Moryachok-
Гость
Предидущий пост не актуален ....
Сам накосячил, уже разобралсь...
спасибо to ВладимирМ
...
Рейтинг: 0 / 0
30.05.2005, 11:05:11
| Ответить | Цитировать | Написать  
(Do Form MyForm With ...) Передача параметров в объекты
    #33091565
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi -Moryachok-!

Проблема видимости для других МЕТОДОВ ФОРМЫ решается не созданием PUBLIC переменных, а созданием новых свойств у данного объекта - свойства можно создать как заранее (в конструкторе формы) и в Init только записать в них значения принятых параметров, так и непосредственно в Init - через This.AddProperty("имя_свойства", значение_свойства). Вот к таким свойствам уже можно привязывать контролы - только не забывая, что This в Init формы это для контрола будет ThisForm

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
30.05.2005, 23:33:39
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / (Do Form MyForm With ...) Передача параметров в объекты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&tid=1594139]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 211ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 234ms
total:  549ms
созд. / загр.: 549ms
x
x
Закрыть


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