ReSQL.ru
     
powered by simpleCommunicator - 2.0.56     © 2025 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
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36005960
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
glamis
Участник
GermanGM,


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

Ага, теперь, куда мне первый вариант пихать и второй?
И как узнать подвязана таблица или нет если я обращаюсь через recordsource: SQL. ?
...
Рейтинг: 0 / 0
26.05.2009, 09: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
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007137
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
И ещё! В фоксе recordsource работает не на объект, а на всю форму?
...
Рейтинг: 0 / 0
26.05.2009, 10:18
| Ответить | Цитировать | Написать  
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
| Ответить | Цитировать | Написать  
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
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007305
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Да и у меня при появлении ошыбки в программе, её нельзя остановить. Приходится вырубать весь фокс и заново заходить.
...
Рейтинг: 0 / 0
26.05.2009, 10:58
| Ответить | Цитировать | Написать  
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
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36007410
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрДа и у меня при появлении ошыбки в программе, её нельзя остановить. Приходится вырубать весь фокс и заново заходить.Прочитать хелп по set escape
...
Рейтинг: 0 / 0
26.05.2009, 11:33
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008191
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Все равно что то не то делаю ( не могу перемещаться по записям (
...
Рейтинг: 0 / 0
26.05.2009, 15:14
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008223
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
К. АлександрВсе равно что то не то делаю ( не могу перемещаться по записям (А какие были попытки?
...
Рейтинг: 0 / 0
26.05.2009, 15:24
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008235
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Sergey Sizov,

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

Как на весь экран открыть?
...
Рейтинг: 0 / 0
26.05.2009, 15:27
| Ответить | Цитировать | Написать  
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
| Ответить | Цитировать | Написать  
ComboBox фильтр без повторений
    #36008528
К. Александр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
К. Александр
Гость
Sergey Sizov,
СПС )
...
Рейтинг: 0 / 0
26.05.2009, 16:35
| Ответить | Цитировать | Написать  
15 сообщений из 90, страница 4 из 4
  4  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ComboBox фильтр без повторений
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=36007295&tid=1586404]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 327ms
total:  476ms
созд. / загр.: 476ms
x
x
Закрыть


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