ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / optiongroup
23 сообщений из 23, страница 1 из 1
optiongroup
    #36772205
Frogs2009
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Frogs2009
Гость
Подскажите пожалуйста, как записать данные из optiongroup в таблицу? в таблице имеются три колонки со свойством "Logical", optiongroup состоит тоже из трех кнопок (что логично :-) ), при выборе одной из кнопок в первую строку должно забиваться слово "да", а в остальных двух "нет"
...
Рейтинг: 0 / 0
03.08.2010, 09:00
| Ответить | Цитировать | Написать  
optiongroup
    #36772319
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
Frogs2009Подскажите пожалуйста, как записать данные из optiongroup в таблицу? в таблице имеются три колонки со свойством "Logical", optiongroup состоит тоже из трех кнопок (что логично :-) ), при выборе одной из кнопок в первую строку должно забиваться слово "да", а в остальных двух "нет"
Например, так:
table1.field1 = iif(thisform.opg1.value = 1, .t.,.f.)
...
Рейтинг: 0 / 0
03.08.2010, 10:21
| Ответить | Цитировать | Написать  
optiongroup
    #36772332
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
[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:27
| Ответить | Цитировать | Написать  
optiongroup
    #36772335
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
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:28
| Ответить | Цитировать | Написать  
optiongroup
    #36772362
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
igorbik,

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

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

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:56
| Ответить | Цитировать | Написать  
optiongroup
    #36773049
проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проходящий.
Гость
igorbik,
перестань новичков учить плохому. :)
...
Рейтинг: 0 / 0
03.08.2010, 14:59
| Ответить | Цитировать | Написать  
optiongroup
    #36773057
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
igorbik,

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

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

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

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


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