ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отображение даты
11 сообщений из 11, страница 1 из 1
Отображение даты
    #36820339
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
Помогите отобразить дату, которая берётся из таблицы после выбора пользователем определённых данных, в экранной форме в Label... Отображаются поля типа Charaсter:

thisform.label5.Caption =ALLTRIM(members.lastname),
Numeric и другие, а на код:

thisform.label6.Caption =members.birthdate
выдаёт ошибку...

Пробовал перевести в символьный формат:

thisform.label6.Caption =STR(members.birthdate)
тоже не получается...
Заранее благодарен!
...
Рейтинг: 0 / 0
31.08.2010, 08:54
| Ответить | Цитировать | Написать  
Отображение даты
    #36820348
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
papabearrrПомогите отобразить дату, которая берётся из таблицы после выбора пользователем определённых данных, в экранной форме в Label... Отображаются поля типа Charaсter:

thisform.label5.Caption =ALLTRIM(members.lastname),
Numeric и другие, а на код:

thisform.label6.Caption =members.birthdate
выдаёт ошибку...

Пробовал перевести в символьный формат:

thisform.label6.Caption =STR(members.birthdate)
тоже не получается...
Заранее благодарен!
Код: plaintext
thisform.label6.Caption =CAST(members.birthdate AS V( 10 ))
С уважением, Алексей
...
Рейтинг: 0 / 0
31.08.2010, 09:01
| Ответить | Цитировать | Написать  
Отображение даты
    #36820354
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
Aleksey-K, жму руку! Спасибо!
...
Рейтинг: 0 / 0
31.08.2010, 09:03
| Ответить | Цитировать | Написать  
Отображение даты
    #36820358
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
Может ещё подскажете заодно как программно или в настройках запретить ввод в полях ComboBox? Или хотябы сделать так, чтобы программа не реагировала на ввод, а данные брались только из предложенного списка? Спасибо!
...
Рейтинг: 0 / 0
31.08.2010, 09:07
| Ответить | Цитировать | Написать  
Отображение даты
    #36820362
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aleksey-K
Участник
papabearrrМожет ещё подскажете заодно как программно или в настройках запретить ввод в полях ComboBox? Или хотябы сделать так, чтобы программа не реагировала на ввод, а данные брались только из предложенного списка? Спасибо!
Style = 2
С уважением, Алексей
...
Рейтинг: 0 / 0
31.08.2010, 09:09
| Ответить | Цитировать | Написать  
Отображение даты
    #36820370
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
Примерно то, что нужно, только после выбора пункта в ComboBox выдаёт ошибку:

Thisform можно использовать только в методе!
А после нажатия ОК всё работает...
...
Рейтинг: 0 / 0
31.08.2010, 09:14
| Ответить | Цитировать | Написать  
Отображение даты
    #36820578
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
papabearrrПримерно то, что нужно, только после выбора пункта в ComboBox выдаёт ошибку:

Thisform можно использовать только в методе!А вы где его пишете?
...
Рейтинг: 0 / 0
31.08.2010, 11:16
| Ответить | Цитировать | Написать  
Отображение даты
    #36822655
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
В кодовой строке ComboBox для создания массива из данных таблиц, входящих в проект. На основе этого массива потом формируется список другого ComboBox в этой же форме.
...
Рейтинг: 0 / 0
01.09.2010, 02:03
| Ответить | Цитировать | Написать  
Отображение даты
    #36822713
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
papabearrrВ кодовой строке ComboBox для создания массива из данных таблиц, входящих в проект. На основе этого массива потом формируется список другого ComboBox в этой же форме.
Как создается комбо? Если конструктором (Designer) - то Style можно указать в свойствах комбо.
...
Рейтинг: 0 / 0
01.09.2010, 07:11
| Ответить | Цитировать | Написать  
Отображение даты
    #36822744
papabearrr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
papabearrr
Гость
Я нашёл в свойствах комбо Style и поменял его на Dropdown List. В принципе цель достигнута (исключить возможность ввода пользователем с клавы каких-либо значений в поле Комбо), но возникла другая проблема: всё работает, но периодически выдаётся ошибка Thisform можно использовать только в методе!
Thisform я использую в коде для Комбо:

thisform.label5.Caption =""
SELECT kvartiry
SET FILTER TO houseid=VAL(thisform.combo1.Value)
LOCATE FOR flatnumber=val(this.Value)
thisform.label3.Caption=ALLTRIM(kvartiry.address)
SELECT members
SET FILTER TO flatid=kvartiry.flatid
COUNT TO kolmem
DO case
CASE kolmem<>0
GO top
thisform.label5.Caption =ALLTRIM(members.lastname)+" "+ALLTRIM(members.firstname)+" "+ALLTRIM(members.secondname)+", "+CAST(members.birthdate AS V(10))
RETURN
CASE kolmem=0
thisform.label5.Caption ="Информация отсутствует"
return
endcase

Почему такая ошибка возникает - не понятно...
Меняю назад на Dropdown Combo - и всё нормально.
...
Рейтинг: 0 / 0
01.09.2010, 08:06
| Ответить | Цитировать | Написать  
Отображение даты
    #36822818
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
прошелмимо
Участник
papabearrr
Почему такая ошибка возникает - не понятно...
Меняю назад на Dropdown Combo - и всё нормально.

фильтр - зло
так ли в Вашем случае уж необходимо
искать значение чего-то в kvartiry
фильтруя и прыгая?

так написать можно?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
local lnValue, lnValue2, laValue[ 1 ]
lnValue = VAL(thisform.combo1.Value)
lnValue2 = val(this.Value)
select address ;
   from kvartiry ;
   where houseid=lnValue and flatnumber=lnValue2;
 into array laValue
thisform.label3.Caption = iif( _tally> 0 , laValue[ 1 ], "фигвам")

аналогично переписать и танцы со вторым фильтром

еще лучше танцы с поиском чего-то и где-то оформить
ф-ей или проц-й, а еще лучше методом класса-"бубна-искателя"
...
Рейтинг: 0 / 0
01.09.2010, 09:24
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Отображение даты
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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