powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите плиzzz, очень надо....
9 сообщений из 9, страница 1 из 1
Помогите плиzzz, очень надо....
    #35866754
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
есть форма, в форме комбобокс, лист и текст, выбирая в комбо службу в листе показывет имена сотрудников из выбраной службы, выбрав сотруника в текс боксе показывает дату когда он был в отпуске.

USE usl-do
LOCATE ALL FOR usl_do.tab_nom = x8
IF FOUND()
thisform.text1.Value = usl_do.datr
=MESSAGEBOX('Человек был найден',64)
ELSE
=MESSAGEBOX('Поиск результата не дал',16)
endif

подскажите как мне сделать, если сотрудник был несколько раз в отпуске чтобы показывало все даты? понимаю что в этом случае text1 уже не канает.

заранее спасибо
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35866831
Kruchinin Pahan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Liosha_nove4ok,

Например, так.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
lcText = ""
SCAN FOR usl_do.tab_nom = x8
    lcText = lcText + IIF(EMPTY(lcText), "", ", ") + ;
            DTOC(usl_do.datr)
ENDSCAN

IF !EMPTY(lcText)
    thisform.text1.Value = lcText
    =MESSAGEBOX('Человек был найден', 64 )
ELSE
    =MESSAGEBOX('Поиск результата не дал', 16 )
ENDIF
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35867004
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я бы посоветовал использовать
select для выборки и grid(или лист) для показа

типа так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
thisform.GrdOtp.Recordsource=''

select datr from usl_do where usl_do.tab_nom = x8 order by datr  into cursor t_otp

if reccount('t_otp')= 0 
 messagebox('Отсутствует информация по отпускам')
endif

thisform.GrdOtp.rRecordsource='t_otp'
 
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35867819
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я пишу вот такой код и меня постояно при выборе человека прога спрашивает "c:\..\visual foxpro\t_otp.dbf already exists, overwrite it?" да или нет, не пойму где я в коде напартачил, если жму "да", то в гриде выдаёт инфу нормально, как и избавится от инфо окна "c:\..\visual foxpro\t_otp.dbf already exists, overwrite it?"?

USE usl-do

SELECT datr;
FROM usl_do;
WHERE usl_do.tab_nom = x8;
ORDER BY usl_do.datr;
INTO TABLE t_otp

IF reccount()=0
thisform.grid1.Visible=.f.
messagebox('поиск результата не дал')
ELSE

thisform.grid1.Recordsource='t_otp'
thisform.grid1.Visible=.t.
thisform.grid1.Refresh
ENDIF
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35867889
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а курсорм пользоваться не судьба?
into cursor вместо into table
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35867926
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
pitermax,
пытался, если пишу курсор, то в гриде информация первого выбраного человека высвечивается и для остольных побывавших от отпуске, не пойму почему такая лажа
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35868069
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Честно говоря из последнего сообщения ничего не понял кроме того что первая строка высвечивается...
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35868075
pitermax
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а в record source type что у тебя стоит?
...
Рейтинг: 0 / 0
Помогите плиzzz, очень надо....
    #35868102
Liosha_nove4ok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
pitermax,

уже разобрался, там бляха муха, было TABLE, ща поставил ALIAS и всё ок, спасибо
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите плиzzz, очень надо....
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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