Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / optiongroup / 23 сообщений из 23, страница 1 из 1
03.08.2010, 09:00
    #36772205
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Подскажите пожалуйста, как записать данные из optiongroup в таблицу? в таблице имеются три колонки со свойством "Logical", optiongroup состоит тоже из трех кнопок (что логично :-) ), при выборе одной из кнопок в первую строку должно забиваться слово "да", а в остальных двух "нет"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:21
    #36772319
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009Подскажите пожалуйста, как записать данные из optiongroup в таблицу? в таблице имеются три колонки со свойством "Logical", optiongroup состоит тоже из трех кнопок (что логично :-) ), при выборе одной из кнопок в первую строку должно забиваться слово "да", а в остальных двух "нет"
Например, так:
table1.field1 = iif(thisform.opg1.value = 1, .t.,.f.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:27
    #36772332
проходящий.
проходящий.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
[quot igorbikНапример, так:
table1.field1 = iif(thisform.opg1.value = 1, .t.,.f.)[/quot]Мда...
Код: plaintext
table1.field1 = thisform.opg1.value =  1
или уж для сильно нуждающихся в читабельности
Код: plaintext
table1.field1 = (thisform.opg1.value =  1 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:28
    #36772335
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbikFrogs2009Подскажите пожалуйста, как записать данные из optiongroup в таблицу? в таблице имеются три колонки со свойством "Logical", optiongroup состоит тоже из трех кнопок (что логично :-) ), при выборе одной из кнопок в первую строку должно забиваться слово "да", а в остальных двух "нет"
Например, так:
table1.field1 = iif(thisform.opg1.value = 1, .t.,.f.)
Однако в таблице хватит только одного поля.
Если в таблице запланировано 3 (!) поля, и все они д/б заполнены, то вместо OptionGr. поставь 3 чекбокса.
Наконец, если все должено остаться как есть, то к тому, что я написал, нужно добавить еще 2 строки типа:
table1.field2 = iif(thisform.opg1.value = 2, .t.,.f.)
table1.field3 = iif(thisform.opg1.value = 3, .t.,.f.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:37
    #36772362
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik,

Что ж, если быть поточнее с синтаксисом, то нужно типа так:

select table1
go recno() && перейти на нужную запись
replace field1 with iif(thisform.opg1.value = 1, .t., .f.)
replace .... и так далее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:41
    #36772376
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
мне нужно что бы только одно из трех значений было верно, то есть если одно значение "да", то остальные два ОБЯЗАТЕЛЬНО должны быть со значением "нет".
при вводе строки "ustroystva.field1 = iif(thisform.opg1.value = 1, .t.,.f.)" выдает ошибку, что файл таблицы не найден, в чем дело?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:42
    #36772377
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
мне нужно что бы только одно из трех значений было верно, то есть если одно значение "да", то остальные два ОБЯЗАТЕЛЬНО должны быть со значением "нет".
при вводе строки "ustroystva.field1 = iif(thisform.opg1.value = 1, .t.,.f.)" выдает ошибку, что файл таблицы не найден, в чем дело?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 10:51
    #36772392
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009мне нужно что бы только одно из трех значений было верно, то есть если одно значение "да", то остальные два ОБЯЗАТЕЛЬНО должны быть со значением "нет".
Все так и будет. Смотри мой последний пост.

Frogs2009при вводе строки "ustroystva.field1 = iif(thisform.opg1.value = 1, .t.,.f.)" выдает ошибку, что файл таблицы не найден, в чем дело?

if not used('ustroistva')
select 0
use ustroistva
endif

select ustroistva
go (здесь укажи номер записи)
replace....

Пишу на коленях, свой комп в починке, идеи должны быть понятны
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 13:13
    #36772752
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
что то с последним у меня вообще ничего не получается((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 13:34
    #36772813
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009что то с последним у меня вообще ничего не получается((

если Вы воспользуетесь командой SQL update,
то юзать и скакать по записям будет не нужно

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
local llfield1Value, llfield2Value, llfield3Value
with thisform.opg1
    llfield1Value = (.value =  1 )
    llfield2Value = (.value =  2 )
    llfield3Value = (.value =  3 )
endwith
update имятаблицы set field1 = llfield1Value, field2 = llfield2Value, field3 = llfield3Value ;
   where ключь = значение

если Вы прочитает про курсорадаптер для родных таблиц, тогда
и писать апдейты инсерты и делейты Вам совсем не нужно будет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 13:34
    #36772815
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009что то с последним у меня вообще ничего не получается((Присылай сюда коды, посмотрим, где что нужно подправить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 14:36
    #36772986
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik,

SELECT ustroystva
INSERT INTO ustroystva (Tip, Npsu, Zav) VALUES (thisform.txtTip.value, thisform.txtNpsu.value, thisform.txtZav.value)
ustroystva.field4 = iif(thisform.opg1.value = 4, .t.,.f.)
ustroystva.field5 = iif(thisform.opg1.value = 5, .t.,.f.)
ustroystva.field6 = iif(thisform.opg1.value = 6, .t.,.f.)

вот
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 14:41
    #36772992
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik,

SELECT ustroystva
INSERT INTO ustroystva (Tip, Npsu, Zav) VALUES (thisform.txtTip.value, thisform.txtNpsu.value, thisform.txtZav.value)
ustroystva.field4 = iif(thisform.opg1.value = 4, .t.,.f.)
ustroystva.field5 = iif(thisform.opg1.value = 5, .t.,.f.)
ustroystva.field6 = iif(thisform.opg1.value = 6, .t.,.f.)

вот
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 14:44
    #36773004
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009igorbik,

SELECT ustroystva
INSERT INTO ustroystva (Tip, Npsu, Zav) VALUES (thisform.txtTip.value, thisform.txtNpsu.value, thisform.txtZav.value)
ustroystva.field4 = iif(thisform.opg1.value = 4, .t.,.f.)
ustroystva.field5 = iif(thisform.opg1.value = 5, .t.,.f.)
ustroystva.field6 = iif(thisform.opg1.value = 6, .t.,.f.)

вот

селект не нужен

вместо ф-и ииф Вам показали уже как нужно писать.
кроме этого Вас просили не использовать в команде СКЛ прямые ссылки

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
with thisform
   lu1 = .txtTip.value 
   lu2 = .txtNpsu.value
   lu3 = .txtZav.value 
   with .opg1
      lufield4 = (.value =  4 )
      lufield5 = (.value =  5 )
      lufield6 = (.value =  6 )
   endwith
endwith   
INSERT INTO ustroystva (Tip, Npsu, Zav, field4,field5, field6) ;
                     VALUES  ( lu1 ;
                                 , lu2 ;
                                 , lu3 ;
                                 , lufield4 ;
                                 , lufield5 ;
                                 , lufield6)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 14:56
    #36773044
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Попробуй так

INSERT INTO ustroystva (Tip, Npsu, Zav) VALUES (thisform.txtTip.value, thisform.txtNpsu.value, thisform.txtZav.value)

repl field4 with iif(thisform.opg1.value = 4, .t.,.f.)
repl field5 with iif(thisform.opg1.value = 5, .t.,.f.)
repl field6 with iif(thisform.opg1.value = 6, .t.,.f.)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 14:59
    #36773049
проходящий.
проходящий.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik,
перестань новичков учить плохому. :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 15:01
    #36773057
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik,

И еще. Если я правильно помню, INSERT не активизирует таблицу. Если так, то придется восстановить SELECT ustroystva перед REPLACE
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 15:07
    #36773079
Frogs2009
Frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 15:20
    #36773129
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
Frogs2009,
Возможно, ошибка вовсе не в этом коде, а в организации приложения. Тогда усилия мои и г-на Прошелмимо попросту напрасны.
Пришлите форму с контролами, часть таблицы или часть проекта, чтобы можно было посмотреть, где еще есть пробелы.
К вечеру, надеюсь, мне вернут мой комп с ремонта, а до того г-н Прошелмимо еще успеет привести присланное Вами в рабочее состояние.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 16:06
    #36773309
frogs2009
frogs2009
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
прикрепил форму, в ней все что добавляется
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 17:00
    #36773486
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbikigorbik,

И еще. Если я правильно помню, INSERT не активизирует таблицу. Если так, то придется восстановить SELECT ustroystva перед REPLACE

если Вы и в свой код так-же разрвабатываете,
то стоит уделить время наведению порядка у себя,
а не пытаться чему-то учить новичков.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 17:03
    #36773495
прошелмимо
прошелмимо
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
igorbik мне вернут мой комп с ремонта

я также без фокспро - и злой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2010, 21:12
    #36773929
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
optiongroup
frogs2009прикрепил форму, в ней все что добавляетсяНе вижу ничего.
Лучше пришлите все мне на мой е-майл.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / optiongroup / 23 сообщений из 23, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 503ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1585067]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 335ms
total:  503ms
x
x
Закрыть


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