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

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

memmarka = THISFORM.txtmarka.Value
SELECT ... FROM ... WHERE <имя поля> = RTRIM(memmarka) INTO CURSOR MyCursor
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 09:30
    #37432029
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
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:39
    #37432045
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
Андрей1985,

Заполняется textbox. Кнопка "Сохранить"
INSERT INTO имя таблицы (имя поля) VALUES (THISFORM.textbox.Value)
THISFORM.Release
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 10:03
    #37432081
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
IgorNG, я уже так пробовал. Дело в том,что в таблицу записывается значение плиты, далее переходит на следующую строку таблицы и записывает значения из формы "карточка абонента".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 10:51
    #37432185
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
Андрей1985IgorNG, я уже так пробовал. Дело в том,что в таблицу записывается значение плиты, далее переходит на следующую строку таблицы и записывает значения из формы "карточка абонента".
Если честно, то ничего не понял. Какой плиты? Кто куда дальше переходит?
Я же не знаю что ты там пишешь. Ты задал вопрос, я ответил. Но что ты имеел в виду, когда задавал вопрос, знаешь только ты.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 12:52
    #37432508
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
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, 15:06
    #37432840
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
Андрей1985,

Каие проблемы. Поставь в RowSource combomarka этот запроос
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 15:18
    #37432872
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
IgorNG, спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.09.2011, 22:55
    #37433572
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
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
| Ответить | Цитировать | Написать  
10.09.2011, 19:50
    #37434178
Андрей1985
Андрей1985
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
Заработало !!!
Код: 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
| Ответить | Цитировать | Написать  
11.09.2011, 23:02
    #37435244
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
Извращенец вы
Каждый раз проверять комбобокс - (судя по всему - а .Actrivate)
Не проще ли сделать изменения в OnClick() ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2011, 08:54
    #37435488
IgorNG
IgorNG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
textboxt в Mycursor
AndreTMИзвращенец вы
Каждый раз проверять комбобокс - (судя по всему - а .Actrivate)
Не проще ли сделать изменения в OnClick() ?
Он не извращенец, он - чайник. Видимо, либо лень вдумчиво читать, либо читает и ничего не понимает, а скорее хочется что-то своё сваять.

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


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