ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / textboxt в Mycursor
13 сообщений из 13, страница 1 из 1
textboxt в Mycursor
    #37432002
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
Здравствуйте, подскажите как перенести значение из textbox в MyCursor ? (thisform.txtmarka.)
Select .... into Cursor MyCursor ?
...
Рейтинг: 0 / 0
09.09.2011, 09:00
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432022
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Андрей1985,

Ты сам-то понимаешь, о чем говоришь?
SELECT ... INTO CURSOR - Это выборка данных из какой-либо таблицы. И причем тут перенос значения из текстового поля.
Другой вопрос, что тебе нужно выбрать данные из таблицы на основании введенного в текстовое поле значения. Тогда так:

memmarka = THISFORM.txtmarka.Value
SELECT ... FROM ... WHERE <имя поля> = RTRIM(memmarka) INTO CURSOR MyCursor
...
Рейтинг: 0 / 0
09.09.2011, 09:19
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432029
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
IgorNG,
Вопрос заключается в следующем. Есть форма "Карточка абонента", кнопка сохранить имеет следующий код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
...........
lizevoy1 = thisform.txtlizevoy.value
family1 = thisform.txtfamily.value
name1 = thisform.txtname.value
patronymic1 = thisform.txtpatronymic .value
ccity1 = thisform.combocciry.value
streets1 = thisform.combostreets.value
telefondom1 = thisform.txttelefondom.value
telefonrab1 = thisform.txttelefonrab.value
dom1 = thisform.txtdom.value
korpus1 = thisform.txtkorpus.value
...........

Кнопка "оборудование" открывет новую форму DO FORM forms\formob.scx
На этой форме textbox нужен для заполнения марки оборудования.
Как правильно сделать?
...
Рейтинг: 0 / 0
09.09.2011, 09:30
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432045
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Андрей1985,

Заполняется textbox. Кнопка "Сохранить"
INSERT INTO имя таблицы (имя поля) VALUES (THISFORM.textbox.Value)
THISFORM.Release
...
Рейтинг: 0 / 0
09.09.2011, 09:39
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432081
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
IgorNG, я уже так пробовал. Дело в том,что в таблицу записывается значение плиты, далее переходит на следующую строку таблицы и записывает значения из формы "карточка абонента".
...
Рейтинг: 0 / 0
09.09.2011, 10:03
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432185
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Андрей1985IgorNG, я уже так пробовал. Дело в том,что в таблицу записывается значение плиты, далее переходит на следующую строку таблицы и записывает значения из формы "карточка абонента".
Если честно, то ничего не понял. Какой плиты? Кто куда дальше переходит?
Я же не знаю что ты там пишешь. Ты задал вопрос, я ответил. Но что ты имеел в виду, когда задавал вопрос, знаешь только ты.
...
Рейтинг: 0 / 0
09.09.2011, 10:51
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432508
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
IgorNG, спасибо, разобрался.
Может подскажите с таким вопросом.
Есть список производителей, при выборе конкретного производителя в списке выбрать марку(которая соответствует производителю)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
************************
thisform.Gridproizv.RecordSource = ""
WITH THISFORM
proizv1= .comboproizv.value
 ENDWITH 
SELECT proizvcounter
LOCATE FOR proizvcounter.nameproizv = proizv1
nidproizv = IIF(FOUND(), proizvcounter.idproizv,  0 )

SELECT Counter.marka;
 FROM gaz!counter;
 WHERE  Counter.idproizv = nidproizv INTO CURSOR MyProba NOFILTER ReadWrite
 
  thisform.Gridproizv.RecordSource = ""  
  thisform.Gridproizv.RecordSource = "MyProba"
Сейчас результа выводится в таблицу Gridproizv. Можно ли его вывести в combomarka ?
Либо можно каким то другим способом?
...
Рейтинг: 0 / 0
09.09.2011, 12:52
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432840
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
Андрей1985,

Каие проблемы. Поставь в RowSource combomarka этот запроос
...
Рейтинг: 0 / 0
09.09.2011, 15:06
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37432872
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
IgorNG, спасибо.
...
Рейтинг: 0 / 0
09.09.2011, 15:18
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37433572
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
IgorNG, работает до первой перезгрузки FoxPro.
В поле Rowsourse =Myproba.marka, а в RowsourseType=6-fields.
В процедуре Valid первого списка:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
WITH THISFORM
proizv1= .comboproizv.value
 ENDWITH 
*********** 
SELECT proizvcounter
LOCATE FOR proizvcounter.nameproizv = proizv1
nidproizv = IIF(FOUND(), proizvcounter.idproizv,  0 )

***************
SELECT Counter.marka;
 FROM gaz!counter;
 WHERE  Counter.idproizv = nidproizv INTO CURSOR MyProba NOFILTER ReadWrite
Выбираю производителя из первого списка, выдает ошибку, при закрытии ошибки, второй список исчезает.При дальнейшем выборе из списков все работает. в чем тут может быть причина?
...
Рейтинг: 0 / 0
09.09.2011, 22:55
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37434178
Андрей1985
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей1985
Гость
Заработало !!!
Код: plaintext
1.
2.
3.
4.
5.
6.
select MyProba 
thisform.combo1.Clear
FOR j= 1  TO RECCOUNT()
 GO j
 thisform.combo1.AddItem(marka)
endfor
...
Рейтинг: 0 / 0
10.09.2011, 19:50
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37435244
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Извращенец вы
Каждый раз проверять комбобокс - (судя по всему - а .Actrivate)
Не проще ли сделать изменения в OnClick() ?
...
Рейтинг: 0 / 0
11.09.2011, 23:02
| Ответить | Цитировать | Написать  
textboxt в Mycursor
    #37435488
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
AndreTMИзвращенец вы
Каждый раз проверять комбобокс - (судя по всему - а .Actrivate)
Не проще ли сделать изменения в OnClick() ?
Он не извращенец, он - чайник. Видимо, либо лень вдумчиво читать, либо читает и ничего не понимает, а скорее хочется что-то своё сваять.

Андрей1985,
у вас есть курсор, вот и добавляйте его в RowSource, зачем же делать то же самое, но в цикле. Если у вас не получается, это еще не значит, что это неправильно.
...
Рейтинг: 0 / 0
12.09.2011, 08:54
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / textboxt в Mycursor
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37432508&tid=1584152]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 17ms
total:  147ms
созд. / загр.: 147ms
x
x
Закрыть


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