ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ComboBox фильтр без повторений
15 сообщений из 90, страница 4 из 4
  4  все
ComboBox фильтр без повторений
    #36005829
GoshaS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GoshaS
Участник
Помечает записи на удаление.
Синтаксис:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
* 1  вариант
DELETE 
	[Scope] [FOR lExpression1] [WHILE lExpression2]
	[IN nWorkArea | cTableAlias]
	[NOOPTIMIZE]
* 2  вариант
DELETE FROM [DatabaseName!]TableName
	[WHERE FilterCondition1
*+ справка по SET DELETED ON | OFF
Добавлять:
Код: plaintext
1.
2.
3.
4.
* 1  вариант, пустая строка
append blank
* 2  вариант прямо со значениями
insert into [DatabaseName!]TableName (s1,s2,s3) values ('abc','def','jhi')
Если таблица подвязана к элементу управления, то все изменения, которые вы в нем внесли, уже отражены в таблице, если она не буфферизирована, тогда больше ничего делать и не надо.
...
Рейтинг: 0 / 0
25.05.2009, 15:40:09
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36005960
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
glamis
Участник
GermanGM,


RowSourceType - 3 (SQL)
RowSource - "Sele отдел from кадры into cursor _x1 dist"
...
Рейтинг: 0 / 0
25.05.2009, 16:20:32
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007034
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
GoshaS,

Ага, теперь, куда мне первый вариант пихать и второй?
И как узнать подвязана таблица или нет если я обращаюсь через recordsource: SQL. ?
...
Рейтинг: 0 / 0
26.05.2009, 09:37:37
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007078
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
У меня форма на ней комбобокс в методе valid:

local fil1 as character
fil1 = ALLTRIM(thisform.combo1.Value)
SELECT zpl
SET FILTER TO notdel = fil1
GO top
thisForm.refresh ()
thisform.grid1.RecordSource ="SELECT notdel, prof, fio, sym1, sym2, sym FROM zpl WHERE notdel='"+fil1+"' into cursor cTmp"
thisform.text1.Text = * что дальше?

Грид в котором выводиться результат запроса.
И текстовое поле Text1.
Как сделать что бы в результате вывода информации в грид, вывести сумму полей sym в текстовое поле!?
...
Рейтинг: 0 / 0
26.05.2009, 09:58:12
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007137
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
И ещё! В фоксе recordsource работает не на объект, а на всю форму?
...
Рейтинг: 0 / 0
26.05.2009, 10:18:39
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007171
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Ну наконец-то... :)
К. АлександрУ меня форма на ней комбобокс в методе valid:

local fil1 as character Запоминаем это объявление.
fil1 = ALLTRIM(thisform.combo1.Value)
SELECT zpl
SET FILTER TO notdel = fil1 А вот и первые грабли.
Настройка (обращаем внимание -найстройка, а не команда!) глобальная, а вот переменная в ней используется локальная, в результате чего сразу при выходе из метода переменная будет уничтожена и фокс начнет ругаться на отсутствие переменной. Еще раз напоминаю, set filter - настроечная команда, которая сданными ничего не делает. В том числе и не отбирает, не выделяет и т.д.

GO top
thisForm.refresh ()
thisform.grid1.RecordSource ="SELECT notdel, prof, fio, sym1, sym2, sym FROM zpl WHERE notdel='"+fil1+"' into cursor cTmp"
thisform.text1.Text = * что дальше?
Прежде, чем делать что-то дальше, надо сделать нужное суммирование. Предлагаю
Код: plaintext
select sum(sym) from zpl where notdel=fil1 into array arTmp
И тогда вместо "* что дальше" можно будет вписать "arTmp"
Грид в котором выводиться результат запроса.
И текстовое поле Text1.
Как сделать что бы в результате вывода информации в грид, вывести сумму полей sym в текстовое поле!?Результатом вывода информации в грид является только вывод информации в грид.
И заодно про следующий вопрос про RecordSource - нет, не на форму. У формы нет такого свойства и она отображением данных не занимается.
...
Рейтинг: 0 / 0
26.05.2009, 10:31:04
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007295
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Sergey Sizov,

select sum(sym) from zpl where notdel=fil1 into array arTmp
thisform.text1.Text = arTmp

ОК! тады жалуется text read only
...
Рейтинг: 0 / 0
26.05.2009, 10:56:56
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007305
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Да и у меня при появлении ошыбки в программе, её нельзя остановить. Приходится вырубать весь фокс и заново заходить.
...
Рейтинг: 0 / 0
26.05.2009, 10:58:47
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007310
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрSergey Sizov,

select sum(sym) from zpl where notdel=fil1 into array arTmp
thisform.text1.Text = arTmp

ОК! тады жалуется text read onlyПросмотрел. Надо не text, а value.
...
Рейтинг: 0 / 0
26.05.2009, 10:59:57
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007410
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрДа и у меня при появлении ошыбки в программе, её нельзя остановить. Приходится вырубать весь фокс и заново заходить.Прочитать хелп по set escape
...
Рейтинг: 0 / 0
26.05.2009, 11:33:30
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008191
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Все равно что то не то делаю ( не могу перемещаться по записям (
...
Рейтинг: 0 / 0
26.05.2009, 15:14:36
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008223
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрВсе равно что то не то делаю ( не могу перемещаться по записям (А какие были попытки?
...
Рейтинг: 0 / 0
26.05.2009, 15:24:23
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008235
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Sergey Sizov,

ОК всё! Могу! )
Теперь при открытии отчета, он открывается не на весь экран:
REPORT FORM repz TO PRINTER PROMPT PREVIEW

Как на весь экран открыть?
...
Рейтинг: 0 / 0
26.05.2009, 15:27:01
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008295
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрSergey Sizov,

ОК всё! Могу! )
Теперь при открытии отчета, он открывается не на весь экран:
REPORT FORM repz TO PRINTER PROMPT PREVIEW

Как на весь экран открыть?На forum.foxclub. за минуту находится:
Вопрос: Имеется ли возможность автоматически максимизировать окно предварительного просмотра отчёта?
Ответ: Попробуйте:

Код: plaintext
1.
2.
3.
4.
  
  #DEFINE WND_PRVREP "Report"  
  IF WEXIST(WND_PRVREP)  
      ZOOM WINDOW (WND_PRVREP) MAX  
  ENDIF
где-нибудь в событии MyReport.DataEnvironment.Init().
...
Рейтинг: 0 / 0
26.05.2009, 15:40:55
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008528
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Sergey Sizov,
СПС )
...
Рейтинг: 0 / 0
26.05.2009, 16:35:20
| Ответить | Цитировать | Написать  
15 сообщений из 90, страница 4 из 4
  4  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ComboBox фильтр без повторений
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36007137&tid=1586404]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 231ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 197ms
total:  505ms
созд. / загр.: 505ms
x
x
Закрыть


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