powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / grid
6 сообщений из 6, страница 1 из 1
grid
    #36593765
MARGARITA23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите, пожалуйста, где можно посмотреть пример работы grid-а, в котором учитываются все выделенные флажком записи. Т.е. я вывожу в grid таблицу (пример таблицы в приложении), затем мне нужно все выделенные флажком записи перенести в другую таблицу. Как это сделать я не знаю
...
Рейтинг: 0 / 0
grid
    #36593778
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MARGARITA23,
вот пример, писан на коленке, но для ознакомления, думаю, сойдёт

инит таблицы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
SELECT .f. as needed,поля_таблицы FROM таблица;
 WHERE ну_и_так_далее INTO CURSOR mycursor
WITH thisform.grid1 
.columncount=- 1 
.RecordSourceType=  1 
.RecordSource='mycursor'
.column1.sparse=.f.
.column1.addobject("chk","checkbox")
.column1.currentcontrol="chk"
.column1.chk.visible=.t.
.column1.chk.caption=''
.column1.width= 50 
endwith
копирование отмеченных
Код: plaintext
insert into _newtable select * from mycursor where needeed
...
Рейтинг: 0 / 0
grid
    #36593985
LUCIAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
MARGARITA23,

Имеется таблица OB -оборотная ведомость по цеху,распечатать надо не всю таблицу,а только необходимые счета,
тогда для этого такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
SELECT DIST SCET,.T. PRW FROM OB INTO CURSOR CWYB READWRITE
GO TOP
DO FORM WYBSCT

select OB.SCET,NAIM_T2,ED_IZM,CENA,KN,SN,KP,SP,KR,SR,KK,SK from ob,CWYB WHERE CWYB.SCET=OB.SCET ;
	AND CWYB.PRW order by  1 , 2  into cursor cob
...
Рейтинг: 0 / 0
grid
    #36594642
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MARGARITA23,

use table1
copy to table2 for yesno

Здесь table1 = источник данных для грида
table2 = вновь создаваемая таблица с отмеченными записями
yesno = поле table1, где проставляются флажки

Если table2 уже есть, и там есть те же поля, то можно так:

select table1
scan
scatter memvar
select table2
append blank
gather memvar
endscan

Если поля не совпадают, то вместо gather memvar
использовать replace

Вариантов еще много. Можно и через курсоры. Все зависит от конкретной ситуации.
...
Рейтинг: 0 / 0
grid
    #36594794
MARGARITA23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое за предложенные примеры
...
Рейтинг: 0 / 0
grid
    #36595131
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
igorbik
select table1
scan
scatter memvar
select table2
append blank
gather memvar
endscan

здесь вместо scan нужно scan for yesno - поспешил, однако
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / grid
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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