powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос про GRID
6 сообщений из 6, страница 1 из 1
Вопрос про GRID
    #32145640
Samir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
При выполнении команды

THISFORM.GRID.RECORDSOURCE = "TABLE"

GRID автоматически изменяется, т.е. меняются заголовки, ширина строк и столбцов и т.д.

Как с этим бороться?
...
Рейтинг: 0 / 0
Вопрос про GRID
    #32145648
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
		WITH THISFORM.oGrd
			LOCAL loC AS COLUMN
			FOR EACH loC IN .COLUMNS

				loC.COMMENT = loC.CONTROLSOURCE

			ENDFOR


			.RECORDSOURCETYPE =  1 
			.RECORDSOURCE =  ""
			.RECORDSOURCE = " Table"
			FOR EACH loC IN .COLUMNS

				loC.CONTROLSOURCE = loC.COMMENT

			ENDFOR

		ENDWITH
...
Рейтинг: 0 / 0
Вопрос про GRID
    #32145673
Samir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну если так делать, то код для GRIDа будет в несколько раз превышать весь код программы.
Или я не прав ?
Есть ли другие методы решения этой задачи?
...
Рейтинг: 0 / 0
Вопрос про GRID
    #32145698
Crip
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так оформи это ввиде функции...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
FUNCTION
LPAR toGrd,tcAlias
		WITH toGrd
			LOCAL loC AS COLUMN
			FOR EACH loC IN .COLUMNS

				loC.COMMENT = loC.CONTROLSOURCE

			ENDFOR


			.RECORDSOURCETYPE =  1 
			.RECORDSOURCE = ""
			.RECORDSOURCE = tcAlias
			FOR EACH loC IN .COLUMNS

				loC.CONTROLSOURCE = loC.COMMENT

			ENDFOR

		ENDWITH
...
Рейтинг: 0 / 0
Вопрос про GRID
    #32146258
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тут ничего не поделаешь. Придется писать нечто вроде того, что написал Crip . Общая логика такая:

-) Обнулить источник данных для Grid (RecordSource="")
-) Установить новый источник данных для Grid
-) Установить источник данных для каждой колонки Grid

Последнего пункта можно избежать только в том случае, если столбцы в Grid идут в том же порядке, что и поля в источнике, причем в качестве источников выступают соответсвующие поля источника по порядку.
...
Рейтинг: 0 / 0
Вопрос про GRID
    #32146351
Фотография Jimmy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот здесь ценная статья о Grid: http://nsvisual.com/fox2/sol/index.php?act=view&id=173
Изложены приемы и техника работы.
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос про GRID
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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