ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нумеровка записей в курсоре.
16 сообщений из 16, страница 1 из 1
Нумеровка записей в курсоре.
    #38299667
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
Добрый день. Можно ли при выборке в курсор каких-то данных добавлять новое поле и автоматически пронумеровать все записи?

Например 5 записей выбрал в курсор с 2-мя полями temp два поля number, cena и автоматически добавить поле id пронумеровав все 5 или сколько есть записей?
...
Рейтинг: 0 / 0
17.06.2013, 11:41
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299680
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
кот_2013, вопрос исчерпан
...
Рейтинг: 0 / 0
17.06.2013, 11:45
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299764
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
Еще такой вопрос.. как сделать чтобы в grid можно было выбирать несколько записей? Т.е. первая колонка содержит поле № и в нем checkbox. Нужно чтобы была возможность пометать несколько записей.
...
Рейтинг: 0 / 0
17.06.2013, 12:31
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299774
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
кот_2013Еще такой вопрос.. как сделать чтобы в grid можно было выбирать несколько записей? Т.е. первая колонка содержит поле № и в нем checkbox. Нужно чтобы была возможность пометать несколько записей.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
PUBLIC o
o = CREATEOBJECT('CheckInGrid')
o.show()

DEFINE CLASS checkingrid AS form


	Top = 0
	Left = 0
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		Height = 229, ;
		Left = 12, ;
		Top = 12, ;
		Width = 349, ;
		Name = "Grid1"


	PROCEDURE Load
		CREATE CURSOR test (A i, B i)

		INSERT INTO test (A,B) VALUES (1,0)
		INSERT INTO test (A,B) VALUES (2,1)
		GO TOP IN test 

		SET MULTILOCKS ON 

		CURSORSETPROP("Buffering" ,5, 'test' )
	ENDPROC


	PROCEDURE Init
		WITH this.grid1
			.recordsource = 'test'
			.columncount = 2
			.column1.controlsource = 'test.A'
			.column2.addobject('Check1','checkbox')
			.column2.currentcontrol = 'Check1'
			.column2.check1.visible = .t.
			.column2.sparse = .f.
		ENDWITH 
	ENDPROC


ENDDEFINE
*
*-- EndDefine: checkingrid
**************************************************
...
Рейтинг: 0 / 0
17.06.2013, 12:36
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299782
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
PaulWist, Спасибо.. А куда вставить нужно этот код?
...
Рейтинг: 0 / 0
17.06.2013, 12:39
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299796
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
кот_2013PaulWist, Спасибо.. А куда вставить нужно этот код?

Что бы посмотреть как код работает, надо создать новую prg, выделить код, правая педаль мыши, Execute
...
Рейтинг: 0 / 0
17.06.2013, 12:45
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299816
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
PaulWist, Работает, а вы не подскажете кое-что. У меня есть такой курсор
SELECT n,fio,pol,dat_rojd,nam FROM pol5 INTO CURSOR pol6
данные из pol6 вывожу в грид. Теперь чтобы свой курсор применить к вашему примеру мне нужно сюда приписать свои данные и все?
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
WITH this.grid1
			.recordsource = 'test'
			.columncount = 2
			.column1.controlsource = 'test.A'
			.column2.addobject('Check1','checkbox')
			.column2.currentcontrol = 'Check1'
			.column2.check1.visible = .t.
			.column2.sparse = .f.
		ENDWITH
...
Рейтинг: 0 / 0
17.06.2013, 12:51
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299935
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
кот_2013PaulWist, Работает, а вы не подскажете кое-что. У меня есть такой курсор
SELECT n,fio,pol,dat_rojd,nam FROM pol5 INTO CURSOR pol6
данные из pol6 вывожу в грид. Теперь чтобы свой курсор применить к вашему примеру мне нужно сюда приписать свои данные и все?
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
WITH this.grid1
			.recordsource = 'test'
			.columncount = 2
			.column1.controlsource = 'test.A'
			.column2.addobject('Check1','checkbox')
			.column2.currentcontrol = 'Check1'
			.column2.check1.visible = .t.
			.column2.sparse = .f.
		ENDWITH



Изменяем SELECT n,fio,pol,dat_rojd,nam FROM pol5 INTO CURSOR pol6 добавляя поле к которому будет привязан Check

Код: sql
1.
SELECT n,fio,pol,dat_rojd,nam, .f. as chk FROM pol5 INTO CURSOR pol6 nofilter



и дальше по "схеме"

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
WITH this.grid1
			.recordsource = 'pol6'
			.columncount = 6
			with .column1.
			.addobject('Check1','checkbox')
			.currentcontrol = 'Check1'
			.check1.visible = .t.
			.sparse = .f.
			.controlsource = 'pol6.Chk'
			endwith 
			.column2..controlsource = 'pol6.n'
			.column3..controlsource = 'pol6.fio'
			.column4..controlsource = 'pol6.pol'
			.column5..controlsource = 'pol6.dat_rojd'
			.column6..controlsource = 'pol6.nam'

		ENDWITH
...
Рейтинг: 0 / 0
17.06.2013, 13:49
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299940
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
PaulWist, Спасибо.
...
Рейтинг: 0 / 0
17.06.2013, 13:54
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299955
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
кот_2013PaulWist, Спасибо.

Вот тут ошибонс

Код: sql
1.
.column2..controlsource


надо

Код: sql
1.
.column2.controlsource



точка должна быть одна :)
...
Рейтинг: 0 / 0
17.06.2013, 13:57
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38299996
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
PaulWist, пишет синтаксическая ошибка.

У меня такая задача: есть окончательный курсор polik6 и endo6 и полями n,fio_pacient,pol,dat_rojd,dat_obs,nam,fio (где fio - это врач). Поля у курсоров одинаковые. Один из курсоров в зависимости от введенного пароля выводится в грид.

Теперь нужно сделать следующее: Сделать возможность пометить несколько записей в гриде и проверить такое условие: выбранные записи являются ли записями относящимися к одному и тому же врачу(это можно по полю fio сделать наверное), если да, то выбранные записи выбрать в другой курсор (допустим rrr) и отобразить.

Подскажите как сделать такое?
...
Рейтинг: 0 / 0
17.06.2013, 14:12
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38300035
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
кот_2013PaulWist, пишет синтаксическая ошибка.

У меня такая задача: есть окончательный курсор polik6 и endo6 и полями n,fio_pacient,pol,dat_rojd,dat_obs,nam,fio (где fio - это врач). Поля у курсоров одинаковые. Один из курсоров в зависимости от введенного пароля выводится в грид.

Теперь нужно сделать следующее: Сделать возможность пометить несколько записей в гриде и проверить такое условие: выбранные записи являются ли записями относящимися к одному и тому же врачу(это можно по полю fio сделать наверное), если да, то выбранные записи выбрать в другой курсор (допустим rrr) и отобразить.

Подскажите как сделать такое?

1. Ну, где сообщение об ошибке.

2. Ни кто не мешает сделать ещё один курсор на основе pol6.
...
Рейтинг: 0 / 0
17.06.2013, 14:24
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38300050
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
PaulWist, точки убрал теперь пишет :алиас polik6 не найден. Вы не могли бы привести небольшой код, который демонстрирует описанную мною задачу? тестовый где в курсоре три поля допустим и где проверяется какое-то условие? Я не знаю как в дальнейшем использовать этот prg файл, в котором ваш пример
...
Рейтинг: 0 / 0
17.06.2013, 14:27
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38300148
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
кот_2013,

Ну а в prg SELECT n,fio,pol,dat_rojd,nam, .f. as chk FROM pol5 INTO CURSOR pol6 nofilter
...
Рейтинг: 0 / 0
17.06.2013, 15:03
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38300193
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
IgorNG, я плохо себе представляю как в этом prg сделать такое. Может я выложу свой проект?
...
Рейтинг: 0 / 0
17.06.2013, 15:22
| Ответить | Цитировать | Написать  
Нумеровка записей в курсоре.
    #38300309
кот_2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
кот_2013
Гость
кот_2013, вот проект, со всеми таблицами, которые нужны.. при нужно ввести пароль gjk или же 'yl

ССЫЛКА
...
Рейтинг: 0 / 0
17.06.2013, 16:19
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нумеровка записей в курсоре.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=41&tid=1583004]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 58ms
get tp. blocked users:
 1ms
others: 277ms
total:  430ms
созд. / загр.: 430ms
x
x
Закрыть


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